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IDENTIFICATION 


PRODUCT CODE: AC-8584C-mMC 
PRODUCT NAME: CZDPDCO DUP11 SDLC DECMD TST 
DATE: APRIL 1978 
MAINTAINER: DIAGNOSTICS 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 
FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES. 

COPYRIGHT (C) 1975, 1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 
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ABSTRACT 


THE FUNCTION OF THE DUP11 DIAGNOSTICS IS TO VERIFY THAT THE 
OPTION OPERATES ACCORDING TO SPECIFICATIONS. THE DIAGNOSTICS 
VERFIY THAT THERE ARE NO MALFUNCTIONS AND THAT ALL OPERATIONS 
OF THE DUP11 ARE CORRECT IN ITS ENVIROMENT. PARAMETERS MAY BE 
SET TO ALERT DIAGNOSTICS AS TO THE ODUP11 CONFIGURATION BY 
ANSWERING THE PARAMETER DIALOG (LOAD ADDRESS=200, START 
ADDRESS=1). ALL QUESTIONS SHOULD BE ANSWERED AND THEN EACH 
DIAGNOSTIC WILL ‘‘OVERLAY'' THESE PARAMETERS WHICH ARE STORED IN 
THE "STATUS TABLE’ (SEE SECTION 8.4). THE ALTERNATIVE TO THE 
PARAMETER DIALOG IS DEFAULT PARAMETERS (SEE SECTION 8.5). 


THE DIAGNOSTICS WILL RUN UP TO EIGHT .CONSECUTIVELY ADDRESSED 
AND CONSECUTIVELY VECTORED DUP11°S IN A CHAIN MODE, I.E., 
RUNNING THE DIAGNOSTIC COMPLETELY FOR ONE DEVICE BEFORE 
STARTING THE NEXT. 


CZDPD TESTS THE ABILITY OF THE DEVICE TO RUN A_ LIMITED SDLC 
PROTOCALL AND LONG DATA PATTERNS. SPECIFIC DATA PATTERNS ARE 
RUN TO PROVE BIT-STUFF CAPABILITY. THE EIA DATA GATES ARE 
PROVEN AND THE PRIORITY LOGIC FUNCTIONS ARE CHECKED. 


CZDPD TESTS ALL THE FUNCTIONS OF DECMODE AND DOES LONG AND 
SHORT DATA_ TESTS INTERNALLY AND OVER THE CABLE, IF ATTACHED. 
BCC, USING THE CRC16 POLYNOMIAL IS CHECKED, AND THE DEVICE IS 
TESTED RUNNING A LIMITED DDCMP PROTOCALL. 


CURRENTLY THERE ARE THREE OFF-LINE DIAGNOSTICS THAT ARE TO BE 
RUN IN SEQUENCE TO ENSURE THAT IF AN ERROR SHOULD OCCUR IT 
WILL BE DETECTED AT AN EARLY STAGE AND ESTABLISH THAT 
oo OF THE ERROR WILL BE IMMEDIATE TO DISCOVERING THE 


NOTE: ADDITIONAL DIAGNOSTICS MAY BE ADDED IN THE FUTURE. 
THE THREE DIAGNOSTICS ARE: 


CZDPB REV BASIC AND OFFLINE TRANSMITTER TESTS 

CZDPC REV OFFLINE RECEIVER AND MODEM CONTROL AND 
INTERRUPT TESTS 

CZDPD REV oo SDLC AND DECMODE DATA AND FUNCTION 


THERE IS A FOURTH PROGRAM, TAPE CZDPE REV WHICH IS A 
QUICK-VERIFY TAPE THAT REQUIRES ANSWERING A DIALOG. 
ITS FUNCTION IS TO ENABLE THE OPERATOR TO QUICKLY 
DETERMINE IF THERE IS A PROBLEM WITH THE DEVICE. SEE 
THE DOCUMENTATION IN THAT LISTING FOR MORE INFORMATION. 


SEQ 0002 
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REQUIREMENTS 
EQUIPMENT 


ANY PDP11 FAMILY CPU (WITH MINIMUM 8K MEMORY) 
ae enY (OR EQUILIVALENT) 
U 


STORAGE 


PROGRAM WILL USE ALL 8K OF MEMORY EXCEPT WHERE ABS AND 
BOOTSTRAP LOADER RESIDE. LOCATION 1500° THRU 1560 ARE 
ESPECIALLY TO BE NOTED AND LEFT UNTOUCHED BY THE OPERATOR 
AFTER THE DUP11 PARAMETER DIALOG HAS BEEN EXECUTED OR AFTER 
THE DEFAULT SETUP HAS BEEN DONE. 


LOADING PROCEDURE 

METHOD 

ALL PROGRAMS ARE IN ABSOLUTE FORMAT AND ARE LOADED USING THE 
ABSOLUTE LOADER. NOTE: IF THE DIAGNOSTICS ARE ON A MEDIA 
SUCH AS DISK, MAGTAPE, DECTAPE, OR CASSETTE FOLLOW 
INSTRUCTIONS FOR THE MONITOR WHICH HAS BEEN PROVIDED ON THAT 
SPECIFIC MEDIA. 

ABSOLUTE LOADER STARTING ADDRESS = *+500 


MEMORY 


VIW— NNN * 
NNN e 


PLACE ADDRES 
"HALT" Sw UP 


DEPRESS "LOAD ADDRESS' KEY ON CONSOLE AND RELEASE. 


DEPRESS "START KEY’ ON CONSOLE AND RELEASE (PROGRAM SHOULD NOW 
BE LOADING INTO CPU) 


OF ABS LOADER INTO SWITCH REGISTER. (ALSO PLACE 


~~ SD _— SV QIU 


SEQ 0003 
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STARTING PROCEEDURE 
SET SWITCH REGISTER TO 000200 
DEPRESS "LOAD ADDRESS’ KEY AND RELEASE 


SET SWR TO ZERO FOR DEFAULT PARAMETERS ESTABLISHED IN THE 
TAPE (SEE SECTION 8.5.3 FOR FULL EXPLANATION OF DEFAULT 
PARAMETERS) OR LEAVE SWR BIT 7=1 TO USE EXISTING 
PARAMETERS PREVIOUSLY SET UP BY THE DUP11 PARAMETER DIALOG 
OR A PREVIOUSLY RUN DUP11 DIAGNOSTIC. SET SWR=1 TO GO 
THROUGH THE PARAMETER DIALOG. (IT IS NOT NECESSARY TO 
INPUT NEW PARAMETERS FOR EACH TAPE.) (SECTION 7.2, 8.4 AND 
8.5 MAY BE HELPFUL) 


DEPRESS ‘START KEY’ AND RELEASE. THE PROGRAM WILL TYPE 
MAINDEC NAME AND PROGRAM NAME (IF THIS WAS THE FIRST START 
UP OF THE PROGRAM) AND ALSO THE FOLLOWING: 


"EXAMPLE * 
"MAP OF DUP11 STATUS' 


160050 FIRST DUP11 

000300 OF FIRST DUP11 

140026 AND SYNC FOR FIRST DUP11 
160060 SECOND DUP11 

000310 OF SECOND DUP11 

140026 STATUS AND SYNC FOR SECOND DUP11 


THE ABOVE IS ONLY AN EXAMPLE! THIS WOULD INDICATE THE STATUS 
TABLE STARTING AT ADDRESS 1500 IN THE PROGRAM. THE STATUS 
TABLE MUST BE VERIFIED BY THE USER. FOR INFORMATION ON THE 
STATUS TABLE SEE SECTION 8.4 FOR HELP. 


IT IS POSSIBLE FOR THE OPERATOR TO MANUALLY CHANGE (TOGGLE IN) 
THE INFORMATION IN THE MAP TO SUIT A SPECIFIC CONFIGURATION OF 
DEVICES, BUT THE RESPONSIBILITY FOR VERIFYING THAT INFORMATION 
RESTS WITH THE OPERATOR. 


THE PROGRAM WILL TYPE "R* AND PROCEED TO RUN THE DIAGNOSTIC 
CONTROL SWITCH SETTINGS 


HALT ON ERROR 

LOOP ON CURRENT TEST 

INHIBIT ERROR PRINT OUT 

INHIBIT TYPE OUT/BELL ON ERROR. 
INHIBIT ITERATIONS. (QUICK PASS) 
ESCAPE TO NEXT TEST ON ERROR 
LOOP WITH CURRENT DATA 

CATCH ERROR AND LOOP ON IT 

USE PREVIOUS STATUS TABLE. 
RESERVED 


felelele-r Tt. Tt) 
AnDOO—MwWHLU 


SEQ 0004 
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RESERVED 


RESERVED 

SELECT DUP11°S DESIRED ACTIVE 

LOCK ON SELECTED TEST 

RESTART PROGRAM AT SELECTED TEST 
ENTER PARAMETERS USING MANUAL DIALOG 


SWITCHES 8 THROUGH 15 ARE DYNAMIC AND SHOULD BE USED AS NEEDED 
IN THE DIAGNOSTIC. SWITCHES 0 THROUGH 3 ARE STATIC (ONLY ARE 
OPERABLE WHEN THE MONITOR PORTION OF THE TAPE IS RUNNING) AND 


SHOULD 


BE SET UP PRIOR TO STARTING OR RESTARTING THE 


DIAGNOSTIC. 
SWITCH REGISTER RESTRICTIONS 


SW 03 


RESELECT DUP11°S DESIRED ACTIVE. PLEASE NOTE THAT A 
MESSAGE IS _ TYPED OUT FOR SETTING THE SWITCH REGISTER 
EQUAL TO DUP11°S ACTIVE. THIS MEANS IF THE SYSTEM HAS 
THREE DUP11S BITS 00, 01, O2 WILL BE SET IN LOC 
"DUPACTV' FROM THE SWITCH REGISTER. USING’ THIS 
SWITCH(SWO3) ALTERS THAT LOCATION. THEREFORE, IF 
THREE DUP11S ARE IN THE SYSTEM ***#)Q0 NOT**® SET 
SWITCHES GREATER THAN SW 02 IN THE UP POSITION. THIS 
WOULD BE A FATAL ERROR. DO NOT SELECT MORE ACTIVE 
DUP11S THAN HAS BEEN GIVEN INFORMATION ABOUT IN THE 
PARAMETER PROGRAM. 


AS EXPLAINED IN SECTION 1.0, DEVICES SHOULD’ BE 
CONSECUTIVELY ADDRESSED, AND CAN BE SELECTED OR 
DESELECTED USING THIS SWITCH. 


METHOD: A. LOAD ADDRESS 200 

B. START WITH SW 03=1 

C. PROGRAM WILL TYPE MESSAGE 

D. SET THE BINARY NUMBER OF DUP11S DESIRED 
ACTIVE. EXAMPLE: 1=1 DUP11; 3=2 DUP11; 
7=3 DUP11; 17=4 DUP11 37=5 DUPI1 ETC. 
PRESS CONTINUE. 
NUMBER (IF VALID) WILL BE IN DATA LIGHTS 
(EXCLUDING 11/05) 
SET WITH ANY OTHER SWITCH SETTINGS 
DESIRED. PRESS CONTINUE. 


RESTART PROGRAM AT SELECTED TEST. IT IS STRONGLY 
SUGGESTED THAT AT LEAST ONE PASS HAS BEEN MADE BEFORE 
TRYING TO SELECT A TEST THAT IS NOT IN THE ORDER OF 
SEQUENCE. THE REASON FOR THIS IS THAT THE PROGRAM HAS 
TO CLEAR AREAS AND SET UP PARAMETERS IN THE MONITOR 
PORTION OF THE PROGRAM. IT IS POSSIBLE TO LD200, AND 
RAISE SWO1, THEN START, PROVIDED PARAMETERS HAVE BEEN 
PREVIOUSLY SET UP AS DESCRIBED IN SECTION 4.0. ALSO, 
WHEN A TEST IS SELECTED, ALWAYS START AT THE VERY 
BEGINNING OF THAT TEST. 


SEQ 0005 
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Sw 09 


LOOP ON CURRENT DATA. THIS SWITCH WILL ONLY WORK IF 
CALL ‘SCOP1" IS IN THAT TEST. THE REASON IS THAT MOST 
TESTS DEAL WITH BLOCKS OF DIFFERENT DATA TO BE SENT OR 
RECEIVED ALL AT ONCE, THUS KNOWN AS BLOCK DATA--ONE 

TTERN CAN'T BE SINGLED OUT. (SEE SECTION 4.1.3.8.1) 


PA 
SWITCH REGISTER PRIORITIES 
A) ERROR SWITCHES 


Ue WN— 
eee 


SW 12 DELETE PRINT OUT/BELL ON ERROR. 

SW 13 DELETE ERROR PRINTOUT. 

SW 15 HALT ON THE ERROR. 

SW 08 GOTO BEGINNING OF THE TEST(ON ERROR). 
SW 10 GOTO NEXT TEST(ON ERROR). 


B) SCOPE SWITCHES 


1. 


3. 


SW 09 - (IF ENABLED BY ‘SCOP1") ON AN ERROR.IF AN 
ASTERISK ‘** JIS PRINTED IN FRONT OF THE TEST NUMBER 
(EX. *TEST NO. 10), SWO9 IS INCORPORATED IN THAT 
TEST AND THEREFORE SWO9 IS USUALLY THE BEST SWITCH FOR 
THE SCOPE LOOP (SW14=0, SW10=0, SWO9=1, SWO8=0). 


IF SWO9 IS NOT ENABELED AND THERE IS A *HARD*® ERROR 
(CONSTANT ERROR) SWO8 IS BEST. (SW14=0, SW10=0, 
SWO9=0, SWO8=1). 


FOR INTERMITTENT ERRORS, SW14=1 WILL LOOP ON TEST 
REGARDLESS OF ERROR OR NO ERROR. (SW14=1, SW10=0, 
SWO9=0, SwWO8=1,0) 


SW 14 - LOOP ON TEST. WILL LOOP ON TEST UNTIL SWITCH 
IS LOWERED. 


SW 11 - INHIBIT ITERATIONS (QUICK PASS). ALLOWS ONLY 
ONE PASS THROUGH A TEST. 


STARTING ADDRESS 


STARTING ADDRESS IS AT 000200. THERE ARE NO OTHER STARTING 
ADDRESSES FOR THE DUP11 DIAGNOSTICS. 


NOTE: 


IF ADDRESS 000042 IS NON-ZERO THE PROGRAM ASSUMES IT 
IS UNDER ACT11 OR XXDP CONTROL AND WILL ACT 
ACCORDINGLY. AFTER *ALL* AVAILABLE DUP11'S ARE TESTED 
THE PROGRAM WILL RETURN TO 'XXDP* OR ‘ACT-11'". 


SEQ 0006 
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5.0 


OPERATING PROCEDURE 


WHEN THE PROGRAM IS INITIALLY STARTED MESSAGES AS DESCRIBED IN 
SECTION FOUR WILL BE PRINTED AND PROGRAM WILL BEGIN RUNNING 
THE DIAGNOSTIC. 


PROGRAM AND/OR OPERATOR ACTION 
TYPICAL APPROACH SHOULD BE 


HALT ON ERROR (VIA SW 15=1) WHENEVER AN ERROR OCCURS. 
CLEAR Sw 15. 

SET SW 14: (LOOP ON THIS TEST) 

SET SW 13: (INHIBIT ERROR PRINT OUT) 


HE TEST NUMBER AND PC WILL BE TYPED OUT AND POSSIBILY AN 
ERROR MESSAGE (THIS DEPENDS ON THE TEST), TO GIVE THE OPERATOR 
AN IDEA AS TO THE SOURCE OF THE PROBLEM. IF IT IS NECESSARY 
TO KNOW MORE INFORMATION CONCERNING THE ERROR REPORT, LOOK IN 
THE LISTING FOR THAT TEST NUMBER WHICH WAS TYPED OUT AND THEN 
NOTE THE PC OF THE ERROR REPORT. IN THIS WAY THE EXACT 
FUNCTIONING OF THE TEST CAN BE INTERPRETED SINCE THE ERROR PC 
IS THE HLT+2 LOCATION. 


IN SOME TESTS, THERE IS A SUBROUTINE CALL THROUGH A_ REGISTER 


(E.G., JSR R1,FLAG). THE SUBROUTINE DOES THE DATA CHECKING 
FOR THE TEST AND WILL REPORT AN ERROR IF ONE OCCURS. THIS 
MEANS THAT THE FAILING TEST COULD BE IN ONE PART OF THE 
LISTING WHILE THE SUBROUTINE THAT FOUND THE ERROR IS _ IN 
ANOTHER PART. TO DETERMINE THE PC OF THE FAILING TEST, CHECK 
THE REGISTER USED BY THE SUBROUTINE. IT WILL CONTAIN THE 
RETURN ADDRESS OF THE FAILING TEST. 


ERRORS 


AS DESCRIBED PREVIOUSLY THERE WILL ALWAYS BE A TEST NUMBER AND 
PC TYPED OUT AT THE TIME OF AN ERROR (PROVIDING SW 13=0 AND SW 
12=0). IN MOST CASES ADDITIONAL INFORMATION WILL BE SUPPLIED 
TO THE ERROR MESSAGE WHICH IS TO GIVE THE OPERATOR AN 
INDICATION OF THE ERROR. 


ERROR RECOVERY 


IF FOR SOME REASON THE DUP11 SHOULD ‘HANG THE BUS" (GAIN 
CONTRCL OF BUS SO THAT CONSOLE MANUAL FUNCTIONS ARE INHIBITED) 
AN INIT OR POWER DOWN/UP IS NECESSARY FOR OPERATOR TO REGAIN 
CONTROL OF CPU. IF THIS SHOULD HAPPEN LOOK IN LOCATION 
"TSTNO' FOR THE NUMBER OF THE TEST THAT WAS RUNNING AT THE 
TIME OF THE CATASTROPHIC ERROR. THIS GIVES THE OPERATOR SOME 
IDEA AS TO WHAT THE DUP11 WAS DOING AT THE TIME OF THE ERROR. 


SEQ 0007 
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7.1 


RESTRICTIONS 
STARTING RESTRICTIONS 


SEE SECTION 4 (PLEASE). STATUS TABLE SHOULD BE VERIFIED 
REGARDLESS OF HOW THE PROGRAM WAS STARTED. ALSO, IT IS 
IMPORTANT TO USE THE LISTING ALONG WITH THE INFORMATION 
PRINTED ON THE TTY TO COMPLETLY ISOLATE PROBLEMS. 


OPERATING RESTRICTIONS 


DUP11 ‘PARAMETER DIALOG’’ MUST BE RUN ONLY ONCE PRIOR TO THE 
FIRST RUNNING OF ANY DUP11 DIAGNOSTIC IF ‘DEFAULT PARAMETERS" 
ARE NOT USED. IF ONLY DUP11 DIAGNOSTICS WERE LOADED AFTER 
DUP11 PARAMETER SETUP, AND IF CORE MEMORY HAS NOT BEEN 
CHANGED, I.E.,USE OF DIAGNOSTICS OTHER THAN DUP11 DIAGNOSTICS, 
AND IF THERE WERE NO DUP11 CONFIGURATION CHANGES, THE DUP11 
PARAMETER SETUP NEED NEVER BE RUN AGAIN. HOWEVER, IF ANY OF 
THE ABOVE HAVE BEEN VIOLATED THE DUP11 PARAMETER SETUP MUST BE 
RUN AGAIN BEFORE RUNNING THE DIAGNOSTICS. UNDER NORMAL 
OPERATING CONDITIONS IT SHOULD NOT BE NECESSARY TO INPUT NEW 
ory Ly TO SUBSEQUENT DIAGNOSTICS, UNLESS A CHANGE IS 
U ° 


NOTE: AN ALTERNATIVE TO THE ABOVE IS ATTEMPTING THE DEFAULT 
wipe WHEN THE PROGRAM IS INITIALLY STARTED WITH 
WR=0. 


HARDWARE CONFIGURATION RESTRICTIONS FOR THE PURPOSE OF RUNNING 
MULTIPLE DUP11°S IN CHAIN MODE. 


CSR ADDRESSES MUST BE CONSECUTIVE. 
VECTORS ARE CONSECUTIVE IF PARAMETER PROGRAM IS USED. 
ALL JUMPERS ARE ASSUMED TO BE AS SETUP IN PARAMETER 


DIALOG. 
PRIORITY LEVEL MUST BE THE SAME FOR ALL DEVICES. 


SEQ 0008 
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8.0 MISCELLANEOUS 
8.1 EXECUTION TIME 


ALL DUP11 DEVICE DIAGNOSTICS WILL GIVE AN ‘END PASS" MESSAGE 
(PROVIDING NO ERRORS AND SW12=0) WITHIN 4 MINS. THIS IS 
ASSUMING SW11=1 (DELETE ITERATIONS) IS SET TO GIVE THE FASTEST 
POSSIBLE EXECUTION. THE ACTUAL EXECUTION TIME DEPENDS GREATLY 
ON THE PDP11 CPU CONFIGURATION. 


PASS COMPLETE 


NOTE: *EVERY* TIME THE PROGRAM IS STARTED, THE TESTS WILL RUN 
AS IF SW11 (DELETE ITERATIONS) WAS UP (=1). THIS IS TO VERIFY 
NO *HARD* ERRORS AS SOON AS POSSIBLE. THEREFORE THE FIRST 
PASS--EACH TIME PROGRAM IS _ STARTED--WILL BE A ‘QUICK PASS' 
UNTIL ALL DUP11"S IN SYSTEM ARE TESTED. WHEN THE DIAGNOSTIC 
HAS COMPLETED A PASS WITH THE NORMAL ITERATION COUNT 
ag vette oat THE FOLLOWING IS AN EXAMPLE OF THE PRINT OUT TO 
x o 


END PASS CZDPDB CSR:160050 VEC:300 PASSES:000001 ERRORS:000000 


NOTE: THE NUMBERS FOR CSR AND VEC ARE NOT NECESSARILY THE 
ls FOR THE DEVICE. THEY ARE ONLY FOR THIS 
L . 


KEY LOCATIONS 


RETURN CONTAINS THE ADDRESS WHERE PROGRAM WILL RETURN 
WHEN ITERATION COUNT IS REACHED OR IF LOOP ON 
TEST IS ASSERTED. 


CONTAINS THE ADDRESS OF THE NEXT TEST TO BE 
PERFORMED. 


CONTAINS THE NUMBER OF THE TEST NOW BEING 
PEFORMED. 


THE BIT IN ‘RUN’ ALWAYS POINTS ONE PAST THE 
DUP11 CURRENTLY BEING TESTED. EXAMPLE: (RUN) 
/0000000001000000 MEANS THAT DUP11 NO.05 IS 
THE DUP11 NOW RUNNING. 


DUPCRCO-DUPCRO7 
(1500)-(1560) THESE LOCATIONS CONTAIN THE INFORMATION NEEDED 
TO TEST UP TO 8 (DECIMAL) DUP11S SEQUENTIALY. 
THEY CONTAIN THE CSR, VECTOR AND STATUS 
CONCERNING THE CONFIGURATION OF EACH DUP11. 


DUPACTV EACH BIT SET IN THIS LOCATION INDICATES THAT 
THE ASSOCIATED DUP11 WILL BE TESTED IN TURN. 
EXAMPLE:  (DUPACTV) /0000000000011111 MEANS 
THAT DUP11 NO. 00,01,02,03,04 WILL BE TESTED. 





CZDPD-C MACY11 30A(1052) 


CZDPDC.P11 


03-MAY-78 1 


An ype 11:29 PAGE 11 
1:24 
EXAMPLE: (DUPACTV) /0000000000010001 MEANS 
THAT DUP11 NO. 00,04 WILL BE TESTED. 


RXCSR CONTAINS _ RECEIVER CSR OF THE CURRENT DUP11 
UNDER TEST 


MORE ON THAT ‘STATUS TABLE’ (1500-1560) 
"MAP OF DUP11 STATUS" 

1500 160050 

1502 000300 

1504 140000 
THE ABOVE INFORMATION WiLL BE REPEATED FOR EACH OF UP 8 
DUP11°S IN THE SYSTEM (THESE WILL FOLLOW UNDER THIS TABLE). 
EXPLANATION: 


1500 160050 THIS IS THE SYSTEM CONTROL REGISTER FOR THE 
1ST DUP11 IN THE SYSTEM. 


1502 000300 pea IS VECTOR ‘A* FOR THE FIRST DUP11 IN’ THE 
Y 


1504 140026 THIS REPRESENTS SYNC AND SOFTWARE STATUS FOR 
THE FIRST DUP. 


THE BITS ARE AS FOLLOWS: 


SET: OPTIONAL CLEAR JUMPER IN 
He TURNAROUND CONNECTOR ON 


1 
1 
1 
1 
1 
1 


08 SET: 
07-00 SYNC CHARACTER FOR DECMODE TESTS. 


THE ABOVE IS REPEATED FOR EACH DUP11 IN THE SYSTEM. THE TABLE 
IS FILLED BY DEFAULT PARAMETERS OR BY THE MANUAL PARAMETER 
INPUT AS DESCRIBED PREVIOUSLY. ALSO, IF DESIRED BY THE 
USER - THE LOCATIONS MAY BE ALTERED BY HAND (TOGGLED IN) TO 
SUIT THE SPECIFIC CONFIGURATION, THUS MAKING EACH DEVICE MAP 
DIFFERENT. IT IS THE RESPONSIBILITY OF THE OPERATOR TO VERIFY 
THE DATA IN THE MAP. 


METHOD OF DEVELOPING DEFAULT PARAMETERS 

DEFAULT PARAMETER ASSUMPTIONS 

TOO MUCH HARDWARE WOULD HAVE TO BE ANALYZED TO SIZE THE THE 
PARAMETERS. THE PROGRAM MUST ASSUME THE VARIATIONS. THE 


RESULT, IF NOT TO YOUR SPECIFIC CONFIGURATION, MAY BE ALTERED 
BY HAND (TOGGLE IN) AS DESIRED. IN THIS WAY 95% OF THE 


SEQ 0010 
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PARAMETER SETUP WAS DONE BY THE PROGRAM AND 5% BY YOU. 
THEREFORE: 


1) ALL JUMPERS ARE ASSUMED TO BE IN THE FOLLOWING 
CONF IGURATION. 


OUT 
B 


N 
W1=SECONDARY REC ENABLE x 
W2=SEC REC DISABLE 
W3=CLEAR OPTION x 
W4=SEC TX ENABLE X 
W5=DSC A CONTROL 
W6=A+B DS CONTROL a 
W7=BUS GRANT CONTROL X 


2) THE H325 TURN AROUND CONNECTOR IS ASSUMED TO BE ON. 


3) THE MANUFACTURING OPTION CSR OF 160050 AND VECTOR OF 770 
ARE USED. 


4) THE BR LEVEL IS ASSUMED TO BE 5. 


eat ADJUSTMENTS PLEASE REFER TO SECTION 8.4 FOR GREATER 
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s*CZDPDCO /<377>/DUP11_ SDLC DECMD TST 
s*COPYRIGHT(C) 1975,1978, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 
-* 


STARTING PROCEDURE 
;LOAD PROGRAM 

;LOAD ADDRESS 000200 

PRESS START 

PROGRAM WILL TYPE ‘‘CZDPDCO /<377>/DUP11 SDLC DECMD TST *’ 
;PROGRAM WILL TYPE ‘'R’' TO INDICATE THAT TESTING HAS STARTED 
:AT THE END OF A PASS, PROGRAM WILL TYPE PASS COMPLETE MESSAGE 
AND THEN RESUME TESTING 


SWITCH REGISTER OPTIONS 


100000 $W15=100000 :=1,HALT ON ERROR 

$W¥14=40000 :=1,LOOP ON CURRENT TEST 

SW13=20000 :=1, INHIBIT ERROR TYPEOUT 

S$W12=10000 :=1,DELETE TYPEOUT/BELL ON ERROR. 
:=1, INHIBIT ITERATIONS 
:=1,ESCAPE TO NEXT TEST ON ERROR 
:=1,LOOP WITH CURRENT DATA 
:=1,LOOP ON ERROR 


000010 = SELECT DUP'S DESIRED ACTIVE 
NOTE: THIS MUST NOT EXCEED ORIGINAL COUNT 
000004 :LOCK ON TEST SELECT 
000002 RESTART PROGRAM AT SELECTED TEST 
000001 sENTER PARAMETERS 
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000000 


000007 


177776 
001150 


005746 
005726 
010046 
012600 
024646 
022626 


100000 


000001 


N 1 
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GENERAL DEFINITIONS AND EQUIVALENCIES 


sREGISTER DEFINITIONS 


GENERAL REGISTER 
GENERAL REGISTER 
;GENERAL REGISTER 
GENERAL REGISTER 
;GENERAL REGISTER 
GENERAL REGISTER 
PROCESSOR STACK POINTER 
PROGRAM COUNTER 


;LOCATIUN EQUIVALENCIES 


PS=177776 PROCESSOR STATUS WORD 
STACK=1150 START OF PROCESSOR STACK 


2 INSTRUCTION DEFINITIONS 


PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 
POP1SP=5726 : INCREMENT PROCESSOR STACK 1 WORD 
PUSHRO=10046 SAVE RO ON STACK 

POPRO=12600 RESTORE RO FROM STACK 
PUSH2SP=24646 ;DECREMENT STACK TWICE 
POP2SP=22626 INCREMENT STACK TWICE 

-EQUIV EMT,HLT ;BASIC DEFINITION OF ERROR CALL 


B1T10=2000 
B1T9=1000 
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000036 
000040 


000046 
000052 
000174 
000176 
000200 


001000 


001200 
001202 


001204 


001212 
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000000 


000024 


000052 
000000 


000174 
000000 
000000 


000200 
000137 


001000 
005377 
001200 


177570 
177570 


177560 


177566 


001562 


055103 050104 
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on 


POR POSTS iri r rill iri titi ritititititititititiiiiiitiiii it) 
; TRAPCATCHER FOR ILLEGAL INTERRUPTS 
THE STANDARD "‘TRAP CATCHER’ IS PLACED 
;BETWEEN ADDRESS 0 TO ADDRESS 776. 
31T LOOKS LIKE ‘PC+2 HALT’. 


° 
SRR REAR EE EEE ERE RET ER ARE AAA AA ERE AE REE AA REREARAAKAEEEEAERKEKEEEE 


=0 
STANDARD INTERRUPT VECTORS 
=24 
-PFAIL POWER FAIL HANDLER 
340 SERVICE AT LEVEL 7 
“HLT TERROR HANDLER 
340 “SERVICE AT LEVEL 7 
“TRPSRV GENERAL HANDLER DISPATCH SERVICE 
uo SERVICE AT LEVEL 7 
ue 0 :SAVE FOR ACT-11 OR DDP2 
0 RETURN ADDRESS IF UNDER ACT-11 OR DDP2 
0 “SAVE FOR ACT-11 OR DDP2 
gp SENDAD FOR USE WITH ACT-11 OR DDP2 
: 0 :ACT=11 PROGRAM CHARACTERISTICS 
(2174 
DISPREG:0 SOFTWARE DISPLAY REGISTER 
SuREG: 0 “SOFTWARE SWITCH REGISTER 
x: JMP “START :G0 TO START OF PROGRAM 
.=1000 
MTITLE: .ASCIZ <377><12>/CZDPDCO /<377>/DUP11 SDLC DECMD TST /<377> 
.=1200 
:SWR AND LIGHTS 
DISPLAY: 177570 11/45 CONSOLE LIGHTS 
SWR: 177570 “INDIRECT POINTER TO SWITCH REGISTER 
INDIRECT POINTERS TO TELETYPE VECTORS AND REGISTERS 
TKCSR: 177560 TELETYPE KEYBOARD CONTROL REGISTER 
TKDBR: 177562 TELETYPE KEYBOARD DATA BUFFER 
TPCSR: 177564 :TELEPRINTER CONTROL REGISTER 
TPDBR: 177566 :TELEPRINTER DATA BUFFER 


PROGRAM CONTROL PARAMETERS 


Cc é 
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001214 000000 RETURN: 
NEXT: 
LOCK: 
I COUNT: 
LPCNT: 
TSTNO: 
PASCNT: 
ERRCNT: 

001234 000000 LSTERR: 


:SCOPE ADDRESS FOR LOOP ON TEST 

sADDRESS OF NEXT TEST TO BE EXECUTED 

ADDRESS FOR LOCK ON CURRENT DATA 

NUMBER OF ITERATIONS THAT CURRENT TEST WILL BE EXECUTED 
NUMBER OF ITEREATIONS COMPLETED 

sNUMBER OF TEST IN PROGRESS 

NUMBER OF PASSES COMPLETED 

; TOTAL NUMBER OF ERRORS 

;PC OF LAST ERROR CALL 


ooooo-o°0oo°o 


PROGRAM VARIABLES 


001236 000000 TEMP1: 
TEMP2: 
TEMPS: 
TEMP4: 
TEMPS: 
SAVRO: 
SAVR1: 
SAVR2: 
SAVR3: 
SAVR4: 
SAVRS: 
SAVSP: 
001266 000000 SAVPC: 


001270 000000 SAVROA: 
SAVRIA: 
SAVR2A: 
SAVR3A: 
SAVR4GA: 
SAVRSA: 


; TEMPORARY STORAGE 

>; TEMPORARY STORAGE 

; TEMPORARY STORAGE 

; TEMPORARY STORAGE 

; TEMPORARY STORAGE 

;RO STORAGE 

3R1 STORAGE 

:R2 STORAGE 

3R3 STORAGE 

3R4 STORAGE 

3R5 STORAGE 

STACK POINTER STORAGE 
;PROGRAM COUNTER STORAGE 


;RO STORAGE 
7R1 STORAGE 
zR2 STORAGE 
3R3 STORAGE 
3R4 STORAGE 
7R5 STORAGE 
SAVSPA: STACK POINTER STORAGE 
001306 000000 SAVPCA: PROGRAM COUNTER STORAGE 


001310 000001 DUPACTV: .BLKB ;DUP11°S SELECTED ACTIVE. 

001311 : .BLKB ;OCTAL NUMBER OF DUP11°S. 

001312 : .BLKB sORIGINAL ACTV. DEVICES. 

001313 : .BLKB ;WORKABLE NUMBER. 

001314 : -BLKB ;POINTER ONE PAST RUNNING DEVICE. 


001316 001500 C : DUP.MAP : TABLE POINTER. 


ooooooo°o ooooo°ocooo°9”[n sao 
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100000 


000001 
100000 


000400 
100000 
001000 
010000 


100000 


000010 
000000 
014000 


010000 
004000 


100000 


010000 
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1:24 


dD 2 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
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;CONTROL REGISTER DEFINITIONS 


RXCSR BIT DEFINITIONS 
DSCA=B1T15 DATA SET CHANGE A 
RING=BIT14 ;RING 
CTS=B1T13 ;CLR TO SEND 
CARDET=BIT12 CARRIER DETECT 
RECACT=B1T11 sREC ACTIVE 
SRD=B1T10 :SEC REC DATA 
DSR=BIT9 :DATA SET RDY 
STPSYN=BIT8 STRIP SYNC 
RXDONE=B1T7 ;REC DONE 
RINTEN=BIT6 ; INTR ENABLE 
DSINTE=BIT5 ; INTR ENABLE 
RCVEN=B1T4 ; ENABLE 
STD=BIT3 : XMIT DATA 
RTS=BIT2 REQ TO SEND 
DTR=BIT1 DATA TERM RDY 
DSCB=BITO DATA SET CHANGE B 
:RXDBUF BIT DEFINITIONS 
RXDERR=B1T15 REC DATA ERROR 
OVRRUN=B1T14 OVERRUN ERROR 
CRCERR=BIT12 :CRC ERROR 
RABORT=B1T10 REC ABORT 
REOM=BI1T9 sREC END OF MESSAGE 
RSOM=BI1T8 REC START OF MESSAGE 
sPARCSR BIT DEFINITION Ss 
DECMOD=B1T15 DEC MODE (DDCMP) 
CRCEN=BIT9 eCRC ENABLE 
PRISEC=BIT12 PRI/SEC SELECT 
sTXCSR BIT DEFINITIONS 
TXDLAT=B1T15 TX DATA LATE 
MTDATA=B1T14 :MAINT DATA OUT 
CLK=BIT13 : CLK 
MMODEB=B1T12 MAINT MODE B 
MMODEA=B1T11 MAINT MODE A 
BITW=BIT10 :BIT WINDOW INPUT 
TXACT=BIT9 :TX ACTIVE 
MRESET=B1T8 MASTER RESET 
TXDONE=B1T7 :XMIT DONE 
TXINTE=BIT6 ara DONE INTR ENABLE 
SEND=BIT4 ey 
HDXEN=BIT3 DX/FDX 
3 TXCSR WRD DEFINITIONS 
USER=0 USER MODE 
MMODE=14000 :MAINT INT MODE 
MEXT=10000 ;MAINT EXT MODE 
SYSTST=4000 SYSTEM TEST MODE 


; TXDBUF BIT DEFINITIONS 


RCRC7T=B1T15 
RCRCIN=BIT14 
TCRC7T=B1T13 
TCRCIN=BIT12 


SEQ 0016 
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004000 
002000 
001000 
000400 


000000 
0 


000001 


3-MAY-78 
4 


ee 
8 
PROGRAM PARAMETERS, VARIABLES, AND TRAP CALLS. 
TIMER=B1T11 MAINTENANCE TIMER 
TABORT=B1T10 ; TRANSMIT ABORT 
TEOM=BIT9 ; TRANSMIT END OF MESSAGE 
TSOM=B1T8 ; TRANSMIT START OF MESSAGE 


MISC. PROGRAM DEFINITIONS 


11:29 PAGE 1 


SRJMFL: . 


SEQ 0017 
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;PROGRAM CONTROL FLAGS 


001340 INIFLG: . ;PROGRAM INITIALIZATION FLAG 
001341 ERRFLG: . ERROR OCCURED FLAG 
001342 LOKFLG: . ;LOCK ON CURRENT TEST FLAG 
001343 QV.FLG: . sQUICK VERIFY FLAG. 
;ON FIRST PASS OF EACH DUP11 ITERATIONS 
WILL BE SUPPRESSED 
-EVEN 
000000 $y=0 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 


;POINTERS TO SUBROUTINES CAN BE FOUND 
7 IN THE TABLE IMMEDIATLY FOLLOWING THE DEFINITIONS 


PITTIITTI IIIT IIIT TIT TT LITT ITTiTiTiTiiiTTiitiTiiti titi titi Titi ii ii Titi 
001344 
001344 
001346 
001350 
001352 - INSTR 

INSTER=TRAP+4 ; INPUT ERROR HANDLER 
001354 - INSTER 

PARAM=TRAP+5 ; NUMERICAL DATA INPUT ROUTINE 
001356 . PARAM 

SAVO5=TRAP+6 ; REGISTER SAVE ROUTINE 
001360 . SAVOS 

RESOS=TRAP+7 ; REGISTER RESTORE ROUTINE 
001362 -RESO5 

CONVRT=TRAP+10 ; DATA OUTPUT ROUTINE 
001364 - CONVRT 

CNVRT=TRAP+11 ; DATA OUTPUT ROUNTINE WITHOUT CR/LF. 
001366 - CNVRT 

PKCLK=TRAP+12 ; CLOCK ROUTINE 
001370 


-PKCLK 
SETFLG=TRAP+13 ; TELETYPE INPUT ROUTINE 
001372 004242 - SETFLG 


104400 SCOPE=TRAP+0 SCOPE LOOP AND ITERATION HANDLER 
SCOPI=TRAPS] LOOP ON CURRENT DATA HANDLER 
TYPESTRAPS3. TELETYPE OUTPUT ROUTINE 
INSTR=TRAP SS” ASCII STRING INPUT ROUTINE 


’ 
Pht PtP P PPP PARR RRR RARER RRA SESS RASAASASASLS ALES E RCSL EES SESE RSE RESALE A ES 
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001430 


001432 
001433 
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000000 
0 


0 
000000 


000 
010 
000000 
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;DUP11 VECTOR AND REGISTER INDIRECT POINTERS 


DUPRVC: 
DUPRPS: 
DUPTVC: 
DUPTPS: 


RXCSR: 


RXDBUF : 
PARCSR: 


TXCSR: 


TXDBUF : 
DUPSEC: 
HUPPSR: 
HUPRBF : 
HUPRCR: 
HUPTBF : 
HUPTCR: 


;POINTER 
:POINTER 
;POINTER 
;POINTER 
:POINTER 
;POINTER 
:POINTER 
POINTER 
;POINTER 
:POINTER 
:POINTER 
:POINTER 
;POINTER 
;POINTER 
;POINTER 


ooooooo oof ocOoOCco 


SEQ 0019 


RECEIVER INTERRUPT VECTOR 
RECEIVER INTERRUPT SERVICE PS 
TRANSMITTER INTERRUPT VECTOR 
TRANSMITTER INTERRUPT SERVICE PS 
RECEIVER STATUS REGISTER 
RECEIVER DATA BUFFER 
PARAMETER STATUS REGISTER 
TRANSMITTER STATUS REGISTER 
TRANSMITTER DATA BUFFER 
DUP11 SECONDARY REGISTER SELECT REGISTER 
PARAMETER STATUS HIGH BYTE 
RECEIVER BUFFER HIGH BYTE 
RECEIVER CONTROL REG HIGH BYTE 
TRANSMITTER BUFFER HIGH BYTE 
TRANSMITTER CONTROL REG HIGH BYTE 


;DUP11 CONTROL INDICATORS FOR CURRENT DUP11 UNDER TEST 


: .BYTE 000 ;LAST CHAR TO TEST AND PARITY MASK 


-BYTE 8. ;NUMBER OF CLOCKS NEEDED FOR ONE CHAR 


: 000000 ; PARAMETERS 
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001500 
001500 
001502 
001504 


001506 
001510 
001512 


001514 
001516 
001520 


001522 
001524 
001526 


001530 
001532 
001534 


001536 
001540 
001542 


001544 
001546 
001550 


001552 
001554 
001556 


001560 
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001500 


000001 
000001 
000001 


000001 
000001 
000001 


000001 
000001 
000001 


000001 
000001 
000001 


000001 
000001 
000001 


000001 
000001 
000001 


000001 
000001 
000001 


000001 
000001 
000001 


000000 


03-MAY-78 
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;DUP11 STATUS TABLE AND ADDRESS 


CONTROL STATUS 
. ;VECTOR ‘‘A’’ FOR 
DUPO.A: . ;PARAMETER FOR 


DUPCR1: . CONTROL STATUS 
DUPTR1: . ;VECTOR ‘‘A’’ FOR 
DUP1.A: . PARAMETER FOR 


DUPCR2: . CONTROL STATUS 
DUPTR2: . ;VECTOR ‘‘A’* FOR 
DUP2.A: ;PARAMETER FOR 


DUPCR3: . CONTROL STATUS 
DUPTR3: . ;VECTOR ‘‘A’* FOR 
DUP3.A: . ;PARAMETER FOR 


DUPCR4: CONTROL STATUS 
DUPTR4: ;VECTOR ‘‘A’’ FOR 
DUP4.A: ;PARAMETER FOR 


DUPCRS: . CONTROL STATUS 
DUPTRS: . ;VECTOR ‘‘A’* FOR 
DUP5.A: . ;PARAMETER FOR 


DUPCR6: . ;CONTROL STATUS 
DUPTR6: ;VECTOR ‘‘A‘' FOR 
DUP6.A: ;PARAMETER FOR 


DUPCR7: CONTROL STATUS 
DUPTR7: .BL VECTOR ‘‘A’’ FOR 
DUP7.A: .BLKW ;PARAMETER FOR 


DUP.END: 000000 


CALLS. 
ASSIGNMENTS 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


REGISTER FOR 


DUP11 
0 
0 
DUP11 


DUP11 NUMBER 1 


DUP11 NUMBER 
REGISTER FOR 


1 
DUP11 


DUP11 NUMBER 2 


DUP11 NUMBER 
REGISTER FOR 


2 
DUP11 


DUP11 NUMBER 3 


DUP11 NUMBER 
REGISTER FOR 


3 
DUP11 


DUP11 NUMBER 4 


DUP11 NUMBER 
REGISTER FOR 


4 
DUP11 


DUP11 NUMBER 5 


DUP11 NUMBER 
REGISTER FOR 


5 
DUP11 


DUP11 NUMBER 6 


DUP11 NUMBER 


REGISTER FOR 
DUP11 NUMBER 
DUP11 NUMBER 


6 
DUP11 
7 
? 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


NUMBER 


SEQ 0020 
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0 
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1 
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1 10 09 08 O07 06 05 04 03 O02 01 00 


OPTIONAL CLEAR JUMPER 
TURNAROUND CONNECTOR 


IN=1 
ON=1 


SEQ 0021 





J 2 
CZDPD-C MACY11 30A(1052) — 11:29 PAGE 23 SEQ 0022 
CZDPDC.P11 O3-MAY-78 11:24 PROGRAM INITIALIZATION AND START UP. 


PROGRAM INITIALIZATION 

;LOCK OUT INTERRUPTS 

SET UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 

;CLEAR PROGRAM CONTROL FLAGS AND COUNTS 
TYPE TITLE MESSAGE 


001562 012737 000340 177776 . : #340,PS ;LOCK OUT INTERRUPTS 
M #STACK,SP 7SET UP STACK 
000024 #.PFAIL ,a#24 ;SET UP POWER FAIL VECTOR 
001313 DUPNUM , SAVNUM > SAVE NUMBER OF DEVICES IN SYSTEM 
PASCNT ;CLEAR PASS COUNT 
ERRFLG :CLEAR ERROR FLAG 
QV.FLG ;ZERO QUICK VERIFY FLAG 
001316 #DUP.MAP, CREAM sGET MAP POINTER. 
001314 #1,RUN sPOINT POINTER TO FIRST DEVICE. 
ERRCNT [CLEAR ERROR COUNT 
LSTERR ;CLEAR LAST ERROR POINTER 
001226 #1, TSTNO ;SET UP FOR TEST 1 
001656 012737 001562 001214 #.START,RETURN sSET UP FOR POWER FAIL BEFORE 
: TESTING STARTS 
001664 013746 000006 ees SAVE CURRENT VECTORS 
a#4,- 3 
000004 #12$,a84 ;SETUP FOR TIMEOUT 
177274 aSwWR sREFERENCE HARDWARE SWITCH REG 
13$ 3BR IF IT genes" S 
000176 001202 : #SWREG, SWR :POINT TO SOFT SWR 
000174 001200 #DISPREG, DISPLAY s;POINT TO SOFT DISPLAY REG 
(SP)+,(SP)+ ADJUST STACK 
000004 : (SP)+,a#4 sRESTORE VECTORS 
000006 (SP)+,a#6 $ 
001340 + sHAS INITIALIZATION BEEN PERFORMED 


6$ 
003104 000042 : #SENDAD ,a#42 :1F ACT-11 AUTO MODE, 

6$ ;DON'T TYPE ID 
001000 TYPE TITLE MESSAGE 
001340 :1F NOT SET FLAG AND DO 
177210 : ;B1T7=1?? 


000137 002520 
032777 000001 177174 a” ,@SWR te PARAMETERS 


002360 318 :NO 
001332 FLAG 
000001 001340 #1, INIFLG :SET TO MANUAL ENTRY 
001500 #DUP MAP, RO *CLR MAP 
+ 
001560 RO ADU. SEND :DONE WITH MAP? 


;BR IF NO 
see ene MESSAGE & GET INPUT STRING 


; MESSAGE 
:CONVERT STRING 
002050 160000 160000 ;LOW LIMIT 
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002052 175500 175500 ;HIGH LIMIT 
STORE AT THIS LOCATION 
-BYTE ; MASK 


-BYTE 1 sHOW MANY TIMES + 2 
sOUTPUT MESSAGE & GET INPUT STRING 
s MESSAGE 

sCONVERT STRING 

;LOW LIMIT 

sHIGH LIMIT 

sSTORE AT THIS LOCATION 


> MASK 
sHOW MANY TIMES + 2 
OUTPUT MESSAGE & GET INPUT STRING 
7 MESSAGE 
CONVERT STRING 
LOW LIMIT 
HIGH LIMIT 
2 bho AT THIS LOCATION 
> MASK 
;HOW MANY TIMES + 2 
TEMP2,PRIRTY SAVE PRIORITY 
OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 
CONVERT STRING 
LOW LIMIT 
HIGH LIMIT 
STORE AT THIS LOCATION 
7 MASK 


:HOW MANY TIMES + 2 

OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 

SET FLAG BASED UPON INPUT STRING 

THIS FLAG 

OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 

SET FLAG BASED UPON INPUT STRING 

s THIS FLAG 


001322 a 
OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 


SET FLAG BASED UPON INPUT STRING 
: THIS FLAG 

OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 

SET FLAG BASED UPON INPUT STRING 
THIS FLAG 


001323 : OPCLRJ 


69$ 
100000 #B1T15,DUPO.A 
001322 : TCNFLG 


70$ 
040000 #B1T14,DUPO.A 
000001 : #1,SAVACT 
001236 TEMP1 , DUPNUM 
002252 113737 001236 TEMP1, SAVNUM 
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002260 005337 001236 65$: TEMP1 
04 648 


001312 + 
001312 001240 : SAVACT, TEMP2 :# OF TIMES 
001312 001310 SAVACT ,DUPACTV 


001240 TEMP2 
001500 #DUPCRO,RO 
001506 — #DUPCR1.R1 


001240 TEMP2 


66$ 
(RO)+,(R1) 

000010 #10, (R1)+ :CSR 
(RO) +, (R1) 

000010 #10,(R1)+ : VECTOR 
hl ea ; PARAMETERS 


6 
001500 : pot at -MAP,RO + py TO CLEAR MAP 


:CLE 
001560 CHECK FOR FINISH 
208 :BR IF MORE TO GO 
001500 R ;SETUP TO DEFAULT 
:LOAD CSR 
;LOAD VECTOR 
#140026, e— ;LOAD PARAMETERS AND SYNC 
001320 #5,PRI ;LOAD PRIORITY 
HRO. SAVE CORE THIS WAY 
RO,DUPACTV PRESET PROGRAM CONTROLS 
RO,DUPNUM ; 0 
RO,SAVACT 
RO, SAVNUM 
RO, TCNFLG : 
110037 001323 RO,OPCLRJ DITTO 


104402 006014 :  XHEAD ; TYPE HEADER 
001500 001236 #DUP MAP, TEMP1 [SET POINTER 


176536 001240 : @TEMP1,TEMP2 :SET DATA 
1$ sALL DONE WITH DATA 


000002 001236 #2, TEMP1 [UPDATE POINTER 

000001 176454 1$: #500, aSUR 

001332 

002000 

001332 : 

000042 : 1S PROGRAM RUNNING UNDER MONITOR 
3$ ‘BR IF YES 

000010 176420 #SU03, aSuR TSELECT SPECIFIC DEVICES?? 


:BR IF NO. 
002564 104402 005413 »MNEW : TYPE THE MESSAGE. 
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002570 005000 RO ZERO DATA LIGHTS 
WAIT FOR USER TO TELL WHAT DEVICES TO RUN 
176402 001312 @SWR,SAVACT 71S THE NUMBER VALID? 
2$ 3BR IF NUMBER IS OK. 
005254 oMERRS ;TELL USER OF INVALID NUMBER. 
STOP EVERY THING. 
B o72 RESTART THE PROGRAM AGAIN. 
176362 001310 2$: @SWR,DUPACTV GET NEW DEVICE PATTERN 
001310 M DUPACTV,RO ;SHOW THE USER WHAT HE SELECTED. 
177460 # C<377>,R0 ;USE ONLY LOW BYTE. 
CONTINUE DYNAMIC SWITCHES. 
000300 3$: #300.R0 sPREPARE TO CLEAR THE FLOATING 
000302 ;VECTOR AREA. 300-776 
4$: sSTART PUTTING ‘'PC+2 = HALT" 
IN VECTOR AREA. 
(RO) +, (R1)+ :POP POINTERS 
001000 #1000,R0 sALL DONE?? 
002656 001372 4$ 7BR IF NO. 


: TEST START AND RESTART 


ooo 


SSRVRGRANVSSaNAanRana=oSenernran 


002660 012737 000340 177776 #340,PS :LOCK OUT INTERRUPTS 
001150 M #STACK,SP SET UP STACK 
000042 a#42 1S PROGRAM UNDER MONITOR CONTROL 

2$ :BR IF YES 
000004 176274 #B1T2,aSwR ;CHECK FOR LOCK ON TEST 
1$ :BR IF NO LOCK DESIRED. 
005312 -MLOCK : TYPE LOCK SELECTED. 
000240 003174 #NOP ,,TTST s;ADJUST SCOPE ROUTINE. 
000240 003176 #NOP ,TTST+2 SET UP TO LOCK 
2$ CONTINUE ALONG. 
003306 003174 18: BRW,TTST PREPARE NORMAL SCOPE ROUTINE 
0 003176 M BRX,TTST+#2 ;LOCK NOT SELECTED, SET UP FOR NORMAL SCOPE LOOP 
001214 2$: #CYCLE,RETURN sSTART AT “‘CYCLE’’ FIND WHICH DEVICE TO TEST 


MR TYPE R 
002760 000177 176230 @RETURN START TESTING 


0 
0 
0 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
2 
2 
2 
2 
2 
2 
2 
2 
2 
2 
3 





on 
MN 
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END OF PASS 

TYPE NAME OF TEST 
;UPDATE PASS COUNT 

CHECK FOR EXIT TO ACT=-11 
RESTART TEST 


002764 005037 001234 ‘ : LSTERR ;CLEAR LAST ERROR PC 
ERRFLG ;CLEAR ERROR FLAG 
PASCNT ;UPDATE PASS COUNT 
PASCNT,@DISPLAY ;DISPLAY PASS COUNT 
MEPASS 3 E END 

s TYPE 

; SHOW 

; TYPE 

3; SHOW 

s TYPE 

3; SHOW 

TYPE 


SHOW IT 
001313 — - DEVICES TESTED? 


; 0. 

000377 001343 #377,QV.FLG ;SET THE QUICK VERIFY FLAG. 

001311 001313 DUPNUM,SAVNUM ;RESTORE THE COUNT 

000042 a#42,R1 CHECK FOR ACT-11 OR DOP 

RESTRT :1F NOT, CONTINUE TESTING 
000005 R STOP THE SHOW--CLEAR THE WORLD 
SENDAD: 

004711 J PC,(R1) 


N 
006224 001214 RESTRT: #CYCLE RETURN 
006224 _ J CYCLE 


6,2 


XVEC: 
3,2 


XPASS: 
6,2 


on XERR: 
003156 001232 ERRCNT 
SCOPE LOOP AND INTERATION HANDLER 
003160 005037 (01234 - SCOPE: LSTERR ;CLEAR LAST ERROR PC 
010016 M RO, (SP) :SAVE RO ON STACK 
032777 040000 176000 BI #B1T14,aSwR LOOP ON TEST? 
te TTST: : 1$ :BR IF NO (IF LOCK - = 1;THIS LOCATION = 240) 


? 3$ :60 TO 3$ (DITT 
105777 176000 aTKCSR DONE 


:KYBD DONE? 
100034 3$ BR IF NO (LOCK: HIT A KEY ON TTY TO GO TO NEXT TEST) 


6,2 


3 
3 
3 
3 
3 
3 
3 
4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
5 
5 
5 
5 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
6 
6 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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003310 
003312 
003334 


003336 


003410 


003412 


003436 


30A(105 


017700 


000437 


032777 


000002 


010546 


000002 


010346 


012704 


175774 
004000 
001343 


001224 
001224 


001341 
001224 
001220 


000050 
001216 


175706 


001000 
001220 
001220 


000002 
000002 
010000 


005136 
175612 


175606 


000004 
000002 


006160 
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175760 


001222 


001222 
001214 


175662 


000002 
175622 


003434 
000004 
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END OF PASS ROUTINE 


1$: 


aTKDBR,RO 
2$ 
#SW11,aSWR 
2$ 

QV.FLG 

2$ 

LPCNT 
LPCNT,1COUNT 
3$ 

ERRFLG 
LPCNT 

LOCK 
#50, 1 COUNT 
NEXT,RETURN 
(SP) ,RO 


@RETURN 


#SWO9,aSWR 
1$ 

LOCK 

1$ 

LOCK, (SP) 


; TELETYPE OUTPUT ROUTINE 


R5,-(SP) 
a@2(SP),R5 
#2,2(SP) 
+ hte 


3 

(R5) 
2$ 
-MCRLF 
aTPCSR 


2$ 
(R5)+,aTPDBR 
1$ 

(SP)+,R5 


R3,-(SP) 
R4,-(SP) 
a4(SP),.MSG 
#2,4(SP) 


#INBUF ,R4 


CLR DONE BIT 
; CONTINUE 


HAS FIRST PASS BEEN COMPLETED? 
:BR IF QUICK VERIFY 

;UPDATE ITERATION COUNTER 

zALL ITERATIONS DONE? 

:BR IF NOT YET 

PREPARE FOR NEW TEST 

START ICOUNT AT ZERO 


RESET ITERATIONS 
:GET NEXT TEST 
;POP RO OFF STACK 


FAKE AN RTI 


:GO DO THE TEST 


31S SWO9=1(SET)? 
:BR IF NOT SET. 


SAVE R5 ON THE STACK. 
:GET ADDRESS OF MESSAGE. 
:POP OVER ADDRESS 
; INHIBIT ALL PRINT OUT?? 

:BR IF NO PRINT OUT WANTED (SW12=1) 
71S NUMBER MINUS? (MSB=1(BIT7)) 

:BR IF NUMBER IS PLUS 

TYPE A CR/LF! 


: TTY READY? 
BR IF NO 


PRINT CURRENT CHAR. 

:1F NOT ZERO KEEP PRINTING! 
;END OF OUTPUT. RESTORE R5 
;GO HOME 


;SAVE R3 ON STACK 
;SAVE R4 ON STACK 


U 
DELETE ITERATION (QUICK PASS)? 
;BR IF YES 


:GOTO THE ADDRESS IN LOCK. 
;GO BACK. 


SEQ 0027 
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003442 012703 000007 
175532 


175526 
000200 
000015 
175512 


175502 


005132 


003534 000002 


003536 010546 
000004 


000004 


006160 
000015 


000060 
000067 
000060 
000015 


003654 000750 


175504 
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END OF PASS ROUTINE 


#7 ,R3 
1$: @aTKCSR 
1$ 


@TKDBR, (R4) 
#200, (R4) 
(R4)+,#15 
INSTR2 
aTPCSR 


2$ 
@TKDBR,@TPDBR 
R3 


1$ 
(SP)+,R4 
(SP)+,R3 
- INSTE: R3,-(SP) 
R4,-(SP) 
. MQM 
- INSTI 
INSTR2: (SP)+,R4 RESTORE R4 
(SP)+,R3 sRESTORE R3 


R5,-(SP) 
R4,-(SP) 
4(SP) ,Ro 
(R5)+,LOLIM 
(R5)+,HILIM 
(R5)+,DEVADR 
(R5)+,LOBITS 
(R5) +, ADRCNT 
| adil 


PARAM1: R 
#INBUF ,R4 


1$: 


BR 
PARERR: 
BR 


PARAM1 
TEST TO SEE IF NUMBER IS WITHIN LIMITS 


SEQ 0028 





ao 


CZDPD-C MACY11 30A(1052) 
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NR @ oe a as 


eee? he pep pee pepe pep pe 
NO OONAUSWN oO 


Ww 
~m 
Ww 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


003656 


003676 


003700 


003734 


003736 


003744 


003774 


003776 


004026 


004030 
004034 
004036 
004040 


O3-MAY-78 1 
020537 


001365 


013704 


003735 


016637 


010537 


000002 


013700 


000002 


104402 
010046 
010146 
010346 


Ns “waciiseg 
1:24 


003730 
003726 
003734 


003732 


000002 
003735 


000004 


001262 
001260 
001256 
001254 
001252 
001250 


001250 


001262 


005136 


001266 
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END OF PASS ROUTINE 


LIMITS: CMP 
BHI 


STORE NUMBER AT SPECIFIED ADDRESS 


LOLIM: 

HILIM: 0 
DEVADR: 0 
LOBITS: 0 
ADRCNT=LOBITS+#1 


SAVE PC OF TEST THAT FAILED AND RO=-R5 


-SAVO5: MOV 


R5,HILIM 


LOBITS,R5 
PARERR 


DEVADR ,R4 


(SP)+,R4 
(SP)+,R5 


4(SP),SAVPC 


7SAVE RO-R5 


sv05: 


R5,SAVR5 
R4,SAVR4 
R3,SAVR3 
R2,SAVR2 
R1,SAVR1 
RO, SAVRO 


sRESTORE RO-R5 


:CONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


SAVRO,RO 
SAVR1,R1 
SAVR2,R2 
SAVR3,R3 
SAVR4,R4 
SAVR5,R5 


R3,-(SP) 


sSAVE R7 (PC) 


7SAVE R5 
SAVE R4 
SAVE R3 
;SAVE R2 
SAVE R1 
7 SAVE RO 
;LEAVE. 


RESTORE 
RESTORE 
RESTORE 
RESTORE 
; RESTORE 
; RESTORE 
; LEAVE 


SEQ 0029 
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004042 010446 R4,-(SP) 
R5,-(SP) 
000012 a12(SP),R1 
000012 #2,12(SP) 
(R1)+,WROCNT 
(R1)+,CHRCNT 
(R1)+,SPACNT 
a(R1)+,BINWRD 
BINWRD,R4 
CHRCNT,R5 
006054 #TEMP,RO 


: R4,R3 
177770 #177770,R3 
000060 #060,R3 
R3,(RO)+ 
R4 
R4 


R4 
R5 


3$ 
006116 #ADATA,R3 
: ~(RO),(R3)+ 
004236 CHRCNT 


48 
004237 SPACNT 
6$ 


000040 : #040, (R3)+ 
004237 


006116 
004234 


1 

(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R1 
(SP)+,RO 


WRDCNT: 0 
004236 CHRCNT: 0 

SPACNT=CHRCNT+1 
004240 000000 BINWRD: 0 


;COMPARE THE FIRST CHARACTER IN THE ern INPUT 
;BUFFER TO THE CHARACTERS ‘'N’’ AND ' 

:I1F THE CHARACTER IS ‘'N’’ CLEAR THE FLAG 
IF THE CHARACTER IS "'Y"' SET THE FLAG 


004242 017605 000000 - SETFLG:MOV a(SP),R5 
004246 042737 000040 006160 B #40, INBUF 
004254 122737 000116 006160 #'N, INBUF 318 17 “W" 7 
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004262 001002 1$ 
(R5) ;000 


2$ 
000131 006160 : SS aes sis tt "7 


177777 #-1,(R5) 3377 
000002 : #2, (SP) 


: sRETRY 
004314 000752 BR . SETFLG 


; TRAP DISPATCH SERVICE 

;ARGUMENT OF TRAP IS EXTRACTED 

;AND USED AS OFFSET TO OBTAIN POINTER 
:TO SELECTED SUBROUTINE 


004316 011646 . : (SP) ,-(SP) GET PC OF RETURN 
000002 S #2, (SP) :=PC OF TRAP 
000000 a(SP), (SP) GET TRP 
: (SP) sMULTIPLY TRAP ARG BY 2 
177001 B #177001,(SP) ;CLEAR UNWANTED BITS 
001344 #. TRPTAB, (SP) :POINTER TO SUBROUTINE ADDRESS 
000000 a(SP), (SP) ; SUBROUTINE ADDRESS 
004346 000136 a(SP)+ :GO0 TO SUBROUTINE 


ERROR HANDLER 


004350 032777 010000 174624 : #SW12,aSWR ;BELL ON ERROR? 
XBX ;BR IF NO BELL 
174624 a ; TTY READY. 
XB DON'T WAIT IF TTY NOT READY. 
000207 174616 1207, @TPOBR PUSH A BELL AT THE TTY. 
020000 174600 : #SW13,aSuR ;DELETE ERROR PRINT OUT? 
HALTS :BR IF NO PRINT OUT WANTED. 
001234 (SP), LSTERR WAS THIS ERROR FOUND LAST TIME? 
1$ :BR IF YES 
001234 (SP) ,.LSTERR :RECORD BEING HERE 
001341 ERRFLG ;PREPARE HEADER 
SAVE ALL PROC REGISTERS 
(SP) ,R5 ;GET THE PC OF ERROR 
000002 #2,R5 GET ADDRESS OF TRAP CALL 
(R5),R4 ;GET HLT INSTRUCTION 
R4 ;MULT BY TWO 
(R5),R4 DOUBLE IT 
R4 MULT AGAIN 
177001 #177001 ,R4 CLEAR JUNK 
#.ERRTAB,R4 GET POINTER 
(R4)+, ERRMSG GET ERROR MESSAGE 
(R4)+,DATAHD GET DATA HEADRER 
(R4) ,DATABP GET DATA TABLE 
001341 ERRFLG : TYPE HEADREER 
TYPMSG :BR IF YES 
004612 DATABP ;DOES DATA TABLE EXIST? 
004500 001040 TYPDAT BR IF YES. 





CZDPD-C MACY11 30A(1052) 
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kk ek ek ek tk od os od od 
MMMAMAMA MAA AU 


MORI RD to oe os oS 
NMS OONAUSWN—O©O 


005136 
005136 
001220 


005411 


004566 


004600 


004612 


003104 
174350 


000002 


014000 


000006 
000004 


000006 
000004 


001232 
000400 


002000 
001216 


001150 
174224 


002 


001341 


000042 


000004 
000006 
174516 


174242 
174232 
001214 


Hi eet le og PAGE 33 


ND OF PASS ROUTINE 


TYPMSG: TYPE 
TYPE 


1$: 


ERRMSG: 
WRKO.FM: 


DATAHD: 
TYPDAT: 


DATABP: 
RESREG: 
HALTS: 


1$: 


228: 


33$: 
EXITER: 


/MCRLF 
»MCRLF 
LOCK 

1$ 
»MASTEK 
»MTSTN 
»XTSTN 
»MERRPC 
-ERTABO 
-MCRLF 
#-1,ERRFLG 
ERRMSG 
WRKO.FM 


DATAHD 
TYPDAT 


DATABP 
RESREG 


#SENDAD ,a#42 
1$ 


@SWR 
EXITER 


#340,6 
#SYSTST!MEXT,@TX 


(SP)+,6 
(SP)+,4 
33$ 


(SP)+,(SP)+ 
(SP)+,6 
(SP)+,4 


ERRCNT 
cen ee 
#SW10,aSWR 
2$ 

NEXT RETURN 


#STACK,SP 
@RETURN 


6,2 


SEQ 0032 


;SHOW IT 

sTYPE PC. 

;SHOW IT 

sGIVE A CR/LF 

;NO MORE HEADER UNLESS NO DATA TABLE. 
:1S THERE AN ERROR MESSAGE? 

;BR IF NO. 


YPE 
é ERROR MESSAGE 
;DATA HEADER? 
7BR IF NO 
s TYPE 
3 DATA HEADER 
;DATA TABLE? 
;BR IF NO. 
3; SHOW 
; DATA TABLE 
sRESTORE PROC REGISTERS 
31F ACT=11 AUTO MODE--HALT!! 


HALT ON ERROR? 

;BR IF NO HALT ON ERROR 

SAVE RO 

SHOW ERROR PC IN DATA LIGHTS 
SAVE OLD TRAP 


sFORCE HALT IF TIME-OUT 
;WHEN REFERENCING TXCSR 
CSR 
7 HALT 
sRESTORE TRAP 

ALT 


3H 
;POP STACK 
sRESTORE TRAP 


GET RO 

;UPDATE ERROR COUNT 
:GOTO TOP OF TEST? 
:BR IF YES 

:GOTO NEXT TEST? 

:BR IF NO 

7SET FOR NEXT TEST 
;RESET SP 

;GOTO SPECIFIED TEST 
; RETURN 
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004776 001266 SAVPC 
eee +? XTSTN: 


002 ° 3,2 

001226 

017600 000000 »PKCLK: a(SP),RO ;GET THE # OF TICKS TO POKE 

062716 000002 13 A #2, (SP) ;POP OVER THE # 

052777 020000 174366 #CLK,aTXCSR ;POKE CLOCK UP 
RO ;ARE WE DONE? 
2$ :YES-GO TO 2$ 

020000 174354 #CLK,aTXCSR ;POKE CLOCK DOWN 
RO ;ARE WE DONE? 
1$ ; NO-REPEAT 
005042 000002 28: ; RETURN 


MAMA MAMMMIUI TU 


WW 
voke 


;WAIT ROUTINE 
005044 000240 SMALL: NOP 7 STALL 
005046 000207 RTS PC ; RETURN 


;POWER FAIL ROUTINE 
005050 012737 005060 000024 .PFAIL: ~-f #PWRUP , 24 ;LOAD PFAIL VECTOR FOR POWER UP 
L : 
;WAIT TTY TO COME UP 


001150 MO #STACK,SP sREINIT STACK POINTER 
005050 000024 #.PFAIL,24 ;LOAD PFAIL VECTOR FOR POWER DOWN 


_— et os os ss ss SS Ss 


“i 
a 
oO 


005100 000177 174110 @RETURN 


JMP 
sCLRVEC,ROUTINE TO FILL COMMUNICATION VECTOR AREA WITH .+2,HALT 


005104 012702 000300 CLRVEC: MOV #300,R2 ;R2 COMM VECTOR AREA ADRS 
000302 MOV INIT R1 WITH ADRS OF HALT 
MOV .+#2 TO PC 
:MOV HALT TO PC 
(R1)+,(R1)+ : INC TO NEXT VECTOR AREA 
000776 + ha :END OF VECTOR AREA 


3NO 
005130 000207 PC ; RETURN 


005132 020040 000077 : . , 
000 : <15><12> 
020122 H <377>/PWR FAILED. / 
042116 : <15><377>/END PASS CZDPDC / 
MR: <377>/R/ 
043517 3 <377>/PROGRAM INDICATES NO DEVICES PRESENT./ 
. <377>/ INSUFFICIENT DATA!/ 
<377>/TEST PC-/ 
<377>/LOCK ON SELECTED TEST/ 
/CSR: / 
/VEC: / 
120 : AS /PASSES: / 
005366 051105 047522 051522 /ERRORS: / 
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005377 


006014 
006042 
006044 
006052 


006054 
006116 
006160 
006222 


377 
046777 
000002 

006 
001236 


006 
001240 


000000 


000001 


a 78 
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051505 
000 


050101 


002 


020124 
020124 
000 


047440 


11 
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SEQ 0034 


END OF PASS ROUTINE 


MTSTN: 


0 
TRP.PC: 


-ASCIZ 


As as NO: / 
c377>/SE1 SWITCH REG TO DUP11°S DESIRED ACTIVE./ 


COP7>/REC CSR ADRS / 

<377>/VEC ADRS / 

<377>/1S THE OPTIONAL CLR JMPR IN? (Y OR N) / 
<377>/1S THE H325 CONNECTOR ON? (Y OR N) / 
<377>/# OF DUP'S (IN OCTAL) / 

<377>/PRIORITY (4 TO 7) / 

<377>/SEC TX JMPR IN? (Y OR N) / 

<377>/SEC RX JMPR IN? (Y OR N) / 

<377>/MAP OF DUP11 STATUS/<377> 


6,3 
6.2 
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CZ0P 


DC.P11 


006224 


006336 
006344 


006520 
006524 
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105737 


022737 
001003 


005237 
013737 


03-MAY-78 
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001310 
005205 


001314 


007314 


001560 
001500 


001314 


001560 


001500 


001426 
001374 


001310 


001316 
001316 


001316 


001316 
001316 


001316 


001424 
001406 
001416 
001410 
001422 


001420 
001412 


001430 
001414 
001426 


001376 
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SEQ 0035 Ci 
END OF PASS ROUTINE Ci 


;ROUTINE USED TO CYCLE’ THROUGH UP TO EIGHT DUP11'S 
THIS ROUTINE SETS UP THE CONTROL ADDRESS FOR THE DIAGNOSTIC 
;AND RUNS THE SPECIFIED DUP11°S. THIS ROUTINE *MUST* 


BE RUN FIRST BEFORE ENTERING THE DIAGNOSTIC FOR THE 


SETUP NECESSARY. 


DUPACTV 
1$ 
eMERR2 


a 4 
RUN ,DUPACTV 
2s 


CREAM 
- aslecenee arngaaae 
ahaa ane 


RUN 

CREAM,RO 
#6,CREAM 
#DUP.END,CREAM 


3$ 

#DUP.MAP, CREAM 
(RO)+,RXCSR 
(RO) +, DUPRVC 
yet ,L09.00 


aaned HUPRCR 

HUPRCR 
HUPRCR ,RXDBUF 
RXDBUF 
RXDBUF , DUPSEC 
RXDBUF , PARCSR 
RXDBUF , HUPRBF 
HUPRBF 


HUPRBF ,HUPPSR 
HUPPSR,TXCSR 


TXCSR 
TXCSR,HUPTCR 
HUPTCR 
HUPTCR, TXDBUF 
TXDBUF 
TXDBUF , HUPTBF 
HUPTBF 


DUPRVC ,DUPRPS 


~y te DUP11'S TO BE TESTED? 


:BR I 

;NO DUP11°S SELECTED!! 
STOP THE SHOW. 
:DISQUALIFY CONT. SW. 
1S THIS ONE ‘‘ACTIVE"' 
;BR IF GOOD ONE FOUND. 
;CLEAR PROC. CARRY BIT. 
UPDATE POINTER 

CATCH CARRY FROM RUN 
UPDATE ADDRESS POINTER. 


KEEP GOING; NOT ALL TESTED FOR. 
RESET ADDRESS POINTER 
:KEEP LOOKING FOR ACTIVE DUP11 
CLEAR PROC. CARRY. 
UPDATE an 
; CATCH CARRY. 
GET ADDRESS POINTER. 
DATE. 


zALL DONE? 

:BR IF NO. 

RESTORE POINTER. 

LOAD SYSTEM CTRL. REG 
:LOAD VECTOR 

:GET PARAMETERS 

SAVE CORE THIS WAY! 

;GET CONTROL REG HIGH BYTE 


IT 

i CONTROL REG BUFFER 
SECONDARY REG SELECT REG 
PARAMETER STATUS REGISTER 
7 BUFFER HIGH BYTE 


I 
PAR STATUS REG HIGH BYTE 
TX CONTROL REGISTER 


IT 

H CONTROL REG HIGH BYTE 
H BUFFER 

7 BUFFER HIGH BYTE 


:RX VECTOR 
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006562 
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006726 


006730 
006736 


006742 
006744 
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060037 
013737 
060037 
013737 
060037 


012700 


000734 


012737 
000177 


011003 
000207 


03-MAY-78 
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001376 


001402 


001434 
001432 
001433 
006742 
000042 
000002 


005136 


007160 
012737 


001226 
001226 
001214 
005136 
005202 
021464 
005132 


007160 
172252 


001400 
001402 


172364 


000002 
000004 


001214 
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END OF PASS ROUTINE 


RO,DUPRPS 
DUPRPS ,DUPTVC 
RO ,DUPTVC 
DUPTVC ,DUPTPS 
RO,DUPTPS 


#L00.00,R0 
#MASK.A,R1 
#CLK.A,R2 
PC,FIX.00 
a#42 


4$ 
#SWO1,aSWR 
4$ 


SEQ 0036 


RX PRIORITY LEVEL 
7 TX VECTOR 
TX PRIORITY LEVEL 


;LOAD STAUS 00-00 

PREPARE MASK. 

PREPARE CLOCKS 

:GO AND CALCULATE CONFIGURATION. 


:1F SWO1=1,GET STARTING TEST # 


-MCRLF 
OUTPUT MESSAGE & GET INPUT STRING 
; MESSAGE 


[CONVERT STRING 


:LOW LIMIT 
HIGH LIMIT 


mM 
:STORE AT THIS LOCATION 
7 MASK 
;HOW MANY TIMES + 2 


#TST1,RO 
#12737, (RO) 
6$ 
TSTNO,2(RO) 
6$ 
#TSTNO,4(RO) 
6$ 


RO,RETURN 
oMCRLF 
MR 


8$ 

(RO)+ 

RO, #TLAST+10 
5$ 

, MQM 

7$ 

#TST1, RETURN 
@RETURN 

(RO) .R3 

PC 


:SAVE PC 


PREPARE RETURN ADDRESS 
:GO START TESTING. 


;GET PARAMETERS. 
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006746 012577 172422 SETVEC: MOV (R5)+,@DUPRVC 
012577 172422 MOV (R5)+,a@DUPTVC 
112577 = 172414 MOVB (R5)+,@DUPRPS 
112577 172414 MOVB (R5)+,@DUPTPS 
000205 RTS R5 
NO.ATRAP: 


104012 HLT 12 
006772 000002 RTI 


006774 NO.BTRAP: 
006774 104013 LT 13 
006776 000002 


007000 010046 SIMBCC: : RO,-(SP) 
001236 


(R5)+, TEMP2 
(R5)+, TEMPS 


001240 a 
000001 ~ (lan 


2 
007154 BCCFBK 
007152 : aan 


R 
007154 RO, BCCFBK 


001242 TEMPS 
007154 BCCFBK,RO 
001242 TEMP3,R1 
R1,R2 
R1,R0 
007154 BCCFBK,R2 


R2,R0 
007152 001242 XPOLY, TEMP3 
001242 RO, TEMPS 
001236 aa 
001242 007156 TEMP3,CALBCC 
(SP)+,R2 
(SP)+,R1 
(SP)+,RO 
R5 


SN NN NN NNN 
NORD RY — 
MSO VDONOULWN— 


mk kk ek ek ok od a ot od 
Nm 
w 


~“ 
Nm 
& 


XPOLY: 0 
BCCFBK: 0 
007156 CALBCC: 0 
CRC16=120001 
102010 CRC.CCITT=102010 
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peeeeeeeeeeetereeeeteerenee TEST 1 teeeeeeteeeceteeeeeeeetenet 
;*PRIORITY INTERRUPT TEST. 

;*SET PROCESSOR STATUS TO PRIORITY 7 

s*AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT. 


FREER AREEREREEKEEKEREEE 


SRR eeeeeeeee 


Sp eeeeteneeeee 
PRPS iter iti r iii rir iii ri rii iii ri rit itititititititititiitititi titi tity 
007160 012737 000001 001226 T #1,a#TSTNO 

001216 #TST2,NEXT 

177776 #340,PS ;LOCK OUT INTERRUPTS 

172202 #MRESET,@TXCSR ;RESET THE DEVICE 

PC, SMALL s;WAIT FOR RESET TO FINISH 
006746 R5,SETVEC SET UP VECTORS 
A :VECTOR "A" 
;VECTOR ‘'B"' 


340 40,340 ;LEVEL 
004100 172156 #IXINTE!SYSTST,a@TXCSR TURN ON DUP TX INT. ENABLEAND ENTER SYSTST MODE 
000340 177776 #340,PS tA CPU PRIORITY--CHANGE HERE IF NOT = 5 

;STALL 
DITTO 
NOP :DITTO 
172136 : @TXCSR DISABLE THE DUP11 
SCOPE :SCOPE THIS TEST 
007250 : MOV #1$, (SP) ;SETUP FOR RETURN 
007262 000002 RTI ; RETURN 


peeeeetereteeeeteeeeeeeeeee TEST 2 seeeeeeeeeeeeeeeeeeeeeeeeee 
s*PRIORITY INTERRUPT TEST. 

;*SET PROCESSOR STATUS TO PRIORITY 6 

:*AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT. 


POR ARASAARASASASELASA SALAS EALAA LE LAL EASES ELSE SEARS E SEES ES RAE SSS SS 


+ eeeeeeeeeeee 


; TEST 2 


SS eeeeeeeeeeee 
8 RRR REAR TERE EEA AAA ERERE ERE 
007264 012737 000002 001226 TST2: 0 #2,a#TSTNO 
007400 001216 #TST3,NEXT 
00000£ 001320 #5, PRIRTY ;COMPARE REAL bs. NORMAL 
1$ :BR IF NOT A MATCH 
000340 177776 #340,PS ;LOCK OUT INTERRUPTS 
000400 172066 #MRESET, @TXCSR ;RESET THE DEVICE 
— 005044 a? SMALL sWAIT FOR phe TO FINISH 
006746 R5,SETVEC ;SET UP VECTORS 
P VECTOR -™- 
3; VECTOR ‘'B’ 
340 


4 ° 40,340 ; LEVEL 
007342 004100 172042 #TXINTE!SYSTST,@TXCSR = ;TURN ON DUP TX INT. ENABLEAND ENTER SYSTST MODE 
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007350 eaesan 000300 177776 oo #300,PS +: i ge PRIORITY=-CHANGE HERE IF NOT = 5 


NOP DITTO 
NOP :DITTO 
172022 : CLR @TXCSR :DISABLE THE DUP11 
SCOPE ;SCOPE THIS TEST 
007364 : MOV #1$, (SP) ;SETUP FOR RETURN 
007376 000002 RTI ; RETURN 


peeeteeeeeterereeeeeeeeeeee TEST 3 ceeeeeneaeeeeeeeereeeeeneene 
:*PRIORITY INTERRUPT TEST. 

;*SET PROCESSOR STATUS TO PRIORITY 5 

> *AND VERIFY THAT THE DUP11 WILL NOT INTERRUPT. 


FERRER ERE EE EAE EERE EEE EAE REAR EAR RA AREA EE 


SERRE EREEEEE 
« 


; TEST 5 


sr eeeeeeeetete 
CPI t iii fiir iri iii ir irri rir iiiiiiiiitiiiitiiitiiiitititiiiity) 
007400 012737 000003 001226 : #3,a#TSTNO 
007514 001216 #TST4,NEXT 
000005 001320 #5,PRIRTY COMPARE REAL WITH NORMAL 
1$ 3;BR IF NOT A MATCH 
estes 177776 #340,PS ;LOCK OUT INTERRUPTS 


171752 #MRESET,@TXCSR :RESET THE DEVICE 
PC, SMALL WAIT FOR RESET TO FINISH 
006746 J R5,SETVEC SET UP VECTORS 
:VECTOR "A" 
;VECTOR *'B" 
340 


° 40,340 ;LEVEL 
004100 171726 #TXINTE!SYSTST,@TXCSR =; TURN ON DUP TX INT. ENABLEAND ENTER SYSTST MODE 
000240 177776 240,PS 7SET CPU PRIORITY--CHANGE HERE IF NOT = 5 
0 7 STALL 
DITTO 
NOP DITTO 
171706 : DISABLE THE DUP11 
SCOPE ;SCOPE THIS TEST 
007500 : #1$, (SP) ;SETUP FOR RETURN 
007512 000002 TI ; RETURN 


peeeeeeeteeeeeeeeeeeeeeeeee TEST 4 eeeeeeeeeeeeeeeeeeeeeeeeeee 
s*PRIORITY INTERRUPT TEST. 

;*SET PROCESSOR STATUS TO PRIORITY 4 

;*AND VERIFY THAT THE DUP11 WILL INTERRUPT. 


PS TERARA AAA AEE AERA AEA AERA AAA EARAAAATEAEKERERERRAREEEHE 
s ;eeeteeeerere 
° t 
; TEST 4 


> :eeteerereres 
WEAAARARAARARA SALA RAALALALSASERARAELERASASASE EERE EEE REE EERE SERRE EERE ESS 





B 4 
11:29 PAGE 41 
INTERRUPT PRIORITY TEST=CPU AT LEVEL 4 


CZDPD-C MACY11 net: ae SEQ 0040 


03-MAY-78 
CZD0PDC.P11 O3-MAY-78 11:24 


007514 


007630 


007632 


007770 


012737 


000002 


012737 


005327 


000004 
007632 
000005 


000340 
000400 


005044 
006746 


340 
004100 
000200 


171570 
007616 


000005 
010172 
001322 


000340 


004000 
004000 


001226 TST4: 
001216 


001320 


177776 
171636 


171612 
177776 


001226 
001216 


177776 
171522 
171510 


171456 


007772 
171436 668: 
171426 67$: 


; TEST 5 


: eeekeeeeeeee 
SRR ARERR EAR AERA EEA E EEE R ATA ARE EERE 
#5,a#TSTNO 
#TST6,NEXT 
TCNFLG 
1$ 


#4 ,a#TSTNO 
#TSTS,NEXT 
oC 


#340,PS 
#MRESET ,@TXCSR 
PC, SMALL 

Da sea home 


340, 
#200,PS 


340 ; LEVEL 
#TXINTE!SYSTST, aTXxcsR 


COMPARE REAL WITH NORMAL 
;BR IF NOT A MATCH 
;LOCK OUT INTERRUPTS 


;RESET THE DEVICE 
sWAIT FOR RESET TO FINISH 
;SET UP VECTORS 


ar PRIORITY--CHANGE HERE IF NOT = 


DITTO 


3 
@TXCSR 


DITTO 
;DUP FAILED TO INTERRUPT-POSSBILY WRONG PRIORITY-CHANGE IF NOT 5 
;DISABLE THE DUP11 


:SCOPE THIS TEST 


#1$, (SP) 


SETUP FOR RETURN 


;RETURN 


peeeeeeeeeeeteeeeereeetetaet TEST 5 see eeeeeaeeeeeeeeeeeeeeene 
:*TEST TO PROVE THE HALF-DUPLEX FUNCTION 

;*PROVE THAT THE RECEIVER WILL NOT RECOGNIZE 

:*DATA IF SEND IS ASSERTED. 


SERRE RARER EAE EEA A RAAT EREREAERAEAEEREKEEE 


SS RERREAEREEEE 


® 


* 


#340,PS 
gg bate @TXCSR 
PC,SMA 


LL 
WHEXT ! WOKEN, arxcsr 


R5,SETVEC 


;LOCK OUT INTERRUPTS 
det THE DEVICE 
WAIT FOR RESET TO FINISH 
ENTER MAINT EXT AND HALF=-DUPLEX MODES 
;SET UP VECTORS 


RECEIVER 
; TRANSMITTER 


340,340 

PS 
#RCVEN,@RXCSR 
#RINTEN,@RXCSR 
#SEND,@TXCSR 
#5 ,68$ 

#TIMER ,@TXDBUF 
66$ 
#TIMER,@TXDBUF 
67$ 

(PC)+ 


sLEVEL 

;LOWER PROC. STATUS 
TURN ON RECEIVER 
TURN ON INT. ENABLE 


: TURN ON TRANSMITTER 
LOAD THE NUMBER 
CHECK THE TIMER BIT 
:BR IF SET 


:CHECK THE BIT 
;BR 


IF CLEA 


; R 
;DECREMENT THE NUMBER 





; TURN ON DUP TX INT. ENABLEAND ¢ fe SYSTST MODE 


CZDPD-C_MACY11 30A(1052) O3-MAY-78 11:29 PAGE 42 SEQ 0041 
CZDPDC.P11 O3-MAY-78 11:24 HALF=DUPLEX TEST 


007772 000005 : “6 ;OF TIMES TO REPEAT 
171410 aTXCSR 
3$ 


BR IF MORE TO GO 


5 ;TXDONE FAILED TO SET 
000400 171400 : #TSOM,@TXDBUF ;LOAD TX BUFFER 
000005 010044 #5,73$ ;LOAD THE NUMBER 
004000 171364 : es aparnantes > CHECK tof TIMER BIT 


004000 171354 : namie 


(PC)+ 
;OF TIMES TO REPEAT 
71$ ;BR IF MORE TO GO 
171336 aTXxcSR ;CHECK FOR DONE 
4% 3 IF SET 
010056 104000 sEXTERNAL CLOCKING STOPPED 
7OR DATA WAS NOT RECEIVERD.CHECK 
sEIA DATA AND CLOCK PATHS 
010060 005077 171330 : aTXOBUF ;LOAD A CHARACTER 
171322 aTXCSR ;CHECK FOR DONE 
74 ;BR IF NOT SET 
001000 171314 #TEOM, aTXDBUF 7END THE MESSAGE 
000050 010130 -,/8$ ;LOAD THE NUMBER 
004000 171300 : oe te phe TIMER BIT 
004000 171270 $ #TIMER,@TXDBUF ;CHECK THE BIT 
77$ 7BR IF CLEAR 
(PC)+ ;DECREMENT THE NUMBER 
;OF TIMES TO REPEAT 
76$ 3;BR IF MORE TO GO 
000340 177776 : #340,PS ;RAISE PROCESSOR STATUS 
001150 #STACK,SP ;RESET STACK 
000400 171236 WMRESET,@TXCSR ;RESET THE DEVICE 
005044 PC,SMALL ;WAIT FOR RESET TO FINISH 
010160 104400 ;SCOPE THIS TEST 


010162 104007 ‘ 7 RECEIVER INTERRUTED AND SHOULD 
010164 012716 010134 #1$, (SP) NOT HAVE=-THIS IS HALF 
010170 000002 ; DUPLEX. 


peteeeeeeeeeeeeterteeeeceee TEST 6 eeeeaeteeeeeneeeeeeeeeeeeee 
3*TEST OF THE DUP RUNNING A BINARY COUNT 
;*PATTERN WITHOUT A CRC CALCULATION 


FERRER AREER AREA AEA EEA E AREA AAA EAAAE ARERR EEE 


s eekeeeeeeeee 
. Fy 
; TEST 6 


+ 
s eeeeeeeeeeee 
PECTIC ICSC e iret irri rrr i rir iri titi titi titirititititi titi itt 
010172 012737 000006 001226 TST6: MOV #6,a#TSTNO 
010200 001216 MOV #TST7,NEXT 
010206 171176 BIS #MRESET,@TXCSR ;RESET THE DEVICE 
010214 004737 005044 JSR PC, SMALL WAIT FOR RESET TO FINISH 





CZDPD-C MACY11 30A(1052) 
03-MAY-78 1 


CZDPDC.P11 
010220 


010444 


010446 


010506 


012737 


005037 
012737 


104400 


017737 


032777 


— 78 
1:24 


000001 
001240 
000340 
004000 
006746 


0 

171104 
000020 
000400 
000005 
004000 


004000 


171026 


171020 
000100 
177776 


000040 
004000 


004000 


170734 
001240 


001240 
001240 
170700 
001000 


001236 


177776 
171144 


171054 
171044 


171010 
010436 
170772 
170762 


001324 
001324 


170672 


11:29 PAGE 43 
BINARY COUNT PATERN WITHOUT BCC 


sRECEIVER: 
MOV 


118: 


D 4 


#1, TEMP 

TEMP2 

#340,PS 
#SYSTST,@TXCSR 
R5,SETVEC 


340,340 
#CRCEN,@PARCSR 
#RCVEN,@RXCSR 
#RINTEN,@RXCSR 
_ 


#SEND,@TXCSR 
#TSOM,aTXOBUF 
5,68$ 


#5,6 
#TIMER,@TXDBUF 
66$ 
#TIMER,@TXDBUF 
67$ 

(PC)+ 

66$ 

@TXCSR 

4$ 


aTXDBUF 
4 aaaataacetietuas 


#32.,73$ 
#TIMER,@TXDBUF 
71$ 

#TIMER ,@TXDBUF 
72$ 

(PC) + 


71$ 
1 


@RXDBUF ,DATA 
are aan 
+ 


2 

TEMP2 

TEMP2 

7$ 

@RXCSR 

10$ 

#REOM, @RXDBUF 


LOAD DATA 
> ey crates: 


TENTER SYSTEM TEST MODE 
;LOAD INTERRUPT VECTORS 
RECEIVER 
; TRANSMITER 
; LEVEL 
3; TURN OFF CRC 
7 TURN ON THE RECEIVER 
3; TURN ON REC INTERRUPT ENABLE 
;TEST FOR TX DONE 
BR IF NOT SET 
7 TURN ON SEND 
;TURN ON START OF MESSAGE 
;LOAD THE NUMBER 
;CHECK THE TIMER BIT 
:BR IF SET 


; A 

sDECREMENT THE NUMBER 

:OF TIMES TO REPEAT 

:BR IF MORE TO GO 

WAIT FOR DONE 

:BR IF SET 

EXTERNAL CLOCKING STOPPED 
PUSH OUT DATA 

; TURN ON TRANSMITTER INT ENABLE 
;LOWER PROCESOR STATUS 


LOAD THE NUMBER 
; CHECK THE TIMER BIT 


H EAR 

: DECREMENT THE NUMBER 

;OF TIMES TO REPEAT 

‘BR IF MORE TO GO 

;FAILED TO INTERRUPT IN TIME 
SCOPE THIS TEST 


;GET THE REGISTER AND DATA 
sCHECK IT 

;BR IF OK 

; COMPARISON ERROR 

;COUNT UP EXPECTED 

;CHECK TO SEE IF DONE 

;BR IF NO 

;CHECK FOR DONE 

;BR IF NOT YET 

;CHECK FOR END OF MSG 


SEQ 0042 





CZDPD-C MACY11 tha, 


CZDPDC.P11 


010514 
010516 
010520 


010524 


010526 
010534 


010630 


010632 


010746 


03-MAY-7 


001001 
104003 
012716 


000002 


113777 


000002 


012737 


052777 


QO3-MAY-78 11 
1:24 


010444 


001236 
001236 
000377 


010560 


000377 
010576 


001000 


000120 
006774 
010406 


000007 
011432 
000400 
005044 


102010 
177777 
007156 
010716 
007000 


000001 


004000 


170660 
001236 
170622 


170626 
170604 


170610 


170574 
170554 


001226 
001216 
170536 


007152 
007156 
010720 


001236 


177776 
170436 


E 4 


:29 PAGE 44 SEQ 0043 
BINARY COUNT PATERN WITHOUT BCC 
BNE +4 sBR IF SET 
HLT 3 END OF MSG FAILED TO SET 
MOV #6$, (SP) ; CRUNCH STACK 
7$: RTI ; RETURN 
; TRANSMITTER: 
128: MOVB TEMP1,@TXDBUF ;LOAD THE TRANSMITTER BUFFER 
INCB TEMP1 ;UP THE COUNT 
CMPB #377, TEMP1 ;ARE WE DONE 
BNE 13$ :BR IF NO 
MOV #21$,aDUPTVC :SETUP FOR NEXT PART 
BR 138 ; E 


;LEAV 
218: MOV #377 ,aTXOBUF ;LOAD BUFFER 
MOV #22$,aDUPTVC ;SETUP NEXT PART 


BR 13$ LEAVE 
228: MOV #TEOM,@TXDBUF ;SET END OF MSG 
NOP STALL 
NOP DITTO 
BIC #SEND!TXINTE,@TXCSR ; TURN OFF TRANSMITTER 
MOV #NO.BTRAP,@DUPTVC ;LOAD VECTOR 
13$: MOV #5$, (SP) CRUNCH STACK 
RTI ; RETURNS 


peteeeeeeeeeeeeereeeeeeeene TEST 7 teeteeeeeeeeeeeeetereeeeees 
;*TEST OF THE DUP RUNNING A BINARY COUNT 
;*PATTERN WITH A CRC CALCULATION 


SERRE ERE RAE AAAAAARAEARERREAEEKREEKREEEE 


‘ASR A RSA LSD Sf 


7 eeeeeeeeeert 
POETS SIS SST STITT STP PPP Pree rire errr ri iri iii titi i rit ii iii iii iit. 
TST7: MOV #7 ,a#TSTNO 

MOV #TST10,NEXT 

BIS WMRESET,@TXCSR ;RESET THE DEVICE 


JSR PC, SMALL WAIT FOR RESET TO FINISH 

CLR R1 CLEAR OUT DATA 

MOV #CRC.CCITT,XPOLY. ;SET UP THE POLYNOMIAL 

MOV #-1,CALBCC ;SETUP FOR THE FIRST TIME 
16$: MOV CALBCC,208 ALLOW FOR THE NEXT CHARACTER 

MOV R1,17$ LOAD DATA 

JSR R5,SIMBCC :GO CALCULATE SOFTWARE BCC 

8. BASED ON THESE PARAMETERS 
17$: -BLKW 1 iDATA 
208: -BLKW 1 + PREVIOUS BCC 

INCB R1 ; INCREMENT DATA 

BNE 16$ :BR IF MORE TO GO 

MOV #1, TEMP LOAD DATA 

CLR TEMP2 i CLEAR EXPECTED 

MOV #340,PS 7 


’ PS = 
BIS #SYSTST,@TXCSR VENTER SYSTEM TEST MODE 


CZDPD-C MACY11 ela 


CZDPDC.P11 


POM MM MNP 
ad aad and ad ed ced ee eed 
ed ed ed ed ed ed ed od 
OONAUE WP 


010754 


14 
22 
ra) 
32 
34 
36 
40 
42 
44 


ooooo°c;”][no 
ee ee ed ed td 
ek ed ed ot od od 
rmowrRe Re moo 
ONNAOOUS 
SAMALM LO 


So 
—_ 
= 
Nm 
So 
eS 


011206 
011210 


011212 


03-MAY-7 
004537 


005037 
012737 


104400 


017737 


000002 


03-MAY-78 
1:24 


006746 


170404 
000020 
000400 
000005 
004000 


004000 


170326 


170320 
000100 
177776 


000040 
004000 


004000 


170234 
001240 


001240 
001240 
006746 


340 


170410 
170402 


170374 
170370 
011054 
170354 


170344 


170310 


011136 
170272 


170262 


001324 
001324 


11 


729 PAGE 45 
BINARY COUNT PATTERN WITH BCC 


6$: 


sRECEIVER: 
MOV 


11$: 


F 4 


R5,SETVEC 


340,340 
#RCVEN,@RXCSR 
#RINTEN,@RXCSR 
a. 


#SEND,@TXCSR 
nae 


#5,68$ 

#TIMER ,@TXDBUF 
66$ 
#TIMER,@TXDBUF 
67$ 

(PC)+ 

66$ 

@TXCSR 

4$ 


aT XDBUF 
a 


#32.,73$ 
#TIMER,@TXDBUF 
71$ 
#TIMER,@TXDBUF 
72$ 

(PC)+ 

71$ 

1 


@RXDBUF ,DATA 
1" them 
- 


2 

TEMP2 
TEMP2 

7$ 
R5,SETVEC 


340,340 


SEQ 0044 


;LOAD INTERRUPT VECTORS 
ECEIVER 


iR 

; TRANSMITER 

; LEVEL 

;TURN ON THE RECEIVER 

; TURN ON REC INTERRUPT ENABLE 
: TEST FOR TX DONE 


3 ND 
:TURN ON START OF MESSAGE 
;LOAD THE NUMBER 
+ CHECK aeY TIMER BIT 


; E 

;DECREMENT THE NUMBER 

OF TIMES TO REPEAT 

BR IF MORE TO GO 

WAIT FOR DONE 

BR IF SET 

sEXTERNAL CLOCKING STOPPED 
PUSH OUT DATA 

; TURN ON TRANSMITTER INT ENABLE 
;LOWER PROCESOR STATUS 


;LOAD THE NUMBER 
+ CHECK THE TIMER BIT 


; AR 

;DECREMENT THE NUMBER 

OF TIMES TO REPEAT 

BR IF MORE TO GO 

;FAILED TO INTERRUPT IN TIME 
;SCOPE THIS TEST 


GET THE REGISTER AND DATA 
CHECK IT 

:BR IF OK 

COMPARISON ERROR 
;COUNT UP EXPECTED 
;CHECK TO SEE IF DONE 
BR IF NO 

7 YES--RESET THE VECTORS 
s RECEIVER 

; TRANSMITTER 

s LEVEL 


; RETURN 





G 4 
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CZDPDC.P11 O3-MAY-78 11:24 BINARY COUNT PATTERN WITH BCC 


gta by 
113777 001236 170172 12s: OvB TEMP1,@TXDBUF ;LOAD THE TRANSMITTER BUFFER 
001236 TEMP ;UP THE COUNT 
000377 001236 {A al on tt i _ 
011246 170134 + eames Hes FOR NEXT PART 
V 


:LE 
000377 170140 : #377, aTXDBUF ;LOAD BUFFER 
011264 170116 #22$,aDUPTVC SETUP NEXT PART 


13$ ; LEAVE 
001000 170122 : #TEOM, aTXDBUF 4H e OF MSG 
L 


;DITTO 
000120 170106 #SEND!TXINTE,@TXCSR ; TURN OFF TRANSMITTER 
006774 170066 #NO.BTRAP,@DUPTVC ;LOAD VECTOR 
011106 : #5$, (SP) ;CRUNCH STACK 
011316 000002 ;RETURNS 


011320 117737 170062 001324 : @RXDBUF ,DATA GET FIRST PART OF CRC 
170052 = ry | dae SECOND PART 


-™ :DITT 
170046 001242 @RXDBUF TEMPS ;GET THE REST OF THE CRC 
001242 001325 TEMPS ,DATA+1 SET UP CRC CHARACTER 
011356 #158, (SP) ;SETUP FOR RETURN 
7 RETURN 
000340 177776 ‘ #340,PS sRAISE PS 
007156 CALBCC INVERT BCC 


007156 001324 re ‘estat digty & SOFTWARE AND HARDWARE BCC 
.+ 


4 :BCC COMPARISON ERROR 
010000 001242 #CRCERR,TEMPS ;CHECK THE ERROR BIT 

+4 BR IF NO ERROR 

011412 104004 4 ;BCC ERROR--RECEIVER DOESN'T 
AGREE WITH WHAT TX SENT 

011414 052777 000400 167770 WMRESET,@TXCSR ;RESET THE DEVICE 
011422 004737 005044 PC, SMALL WAIT FOR RESET TO FINISH 
011426 000137 011144 6$ 7 LEAVE 


peereeeeeenereeeeeeerereeee TEST 10 eeeeeeaeeeeeeeeeaeeeeeeeeeeee 
:*TEST OF THE DUP RUNNING A BINARY COUNT 
;*PATTERN WITH A CRC CALCULATION 


TRAP R PARRA RRR RARRRRRRARAR RRS RLELA EERE SS ASE A ARES EASELS SERA E ESS 
TERRES 


; TEST 10 


Sp eeeeeeeeeete 
ECT II SITS Stitt ii iii il iti titi titi titi iii titi titi titi titi titi titty 
011432 012737 000010 001226 TsT10: #10,a#TSTNO 
011440 001216 #TST11,NEXT 
011446 167736 WMRESET,@TXCSR ;RESET THE DEVICE 
011454 4 JS PC, SMALL WAIT FOR RESET TO FINISH 
011460 001322 TCNFLG 
011464 6$ 
011466 005001 R1 CLEAR OUT DATA 





CZDPD-C MACY11 thd 
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011470 


011752 


011754 


03-MAY-7 
012737 


005037 
012737 


104400 


017737 


H 4 


O3-MAY-78 11:29 PAGE 47 
1:24 BINARY PATTERN TEST WITH BCC IN EXTERNAL MODE 


102010 007152 
177777 +=007156 
007156 011526 
011524 
007000 


000001 001236 
001240 
000340 177776 
010000 167630 
006746 


340 
000020 167602 
000100 167574 
167576 


000020 167566 
000400 167562 
000005 011662 
004000 167546 


004000 167536 


167520 


167512 
000100 167502 
177776 


000040 011744 
004000 167464 


004000 167454 


167426 001324 


#CRC.CCITT,XPOLY 


#-1,CALBCC 
16$: CALBCC,20$ 

R1,17$ 

R5,SIMBCC 


17$: 


RS, SETVEC 


340,340 
#RCVEN,@RXCSR 
#RINTEN,@RXCSR 
. 


#SEND ,aTXCSR 
#TSOM,@TXDBUF 
#5,68$ 
#TIMER,@TXDBUF 
66$ 
#TIMER,@TXDBUF 
67$ 


(PC)+ 
66$ 
@aTXCSR 
4% 


@TXDBUF 
5 amy -@TXCSR 


#32.,73$ 
#TIMER,@TXDBUF 
71$ 

#TIMER ,aTXDBUF 
728 

(PC)+ 


71$ 
1 
6$: 


sRECEIVER: 


118: MOV @RXDBUF ,DATA 


SET UP THE POLYNOMIAL 


;SETUP FOR THE FIRST TIME 
ALLOW FOR THE NEXT CHARACTER 
LOAD DATA 

:GO CALCULATE SOFTWARE BCC 
BASED ON THESE PARAMETERS 


. :DATA 
208: . PREVIOUS BCC 
: INCREMENT DATA 


:BR IF ry TO GO 

;LOAD D 

CLEAR. EXPECTED 
PS = 7 


;LOAD INTERRUPT VECTORS 
CEIVER 


:RE 
; TRANSMITER 


LEVEL 

TURN ON THE RECEIVER 

; TURN ON REC INTERRUPT ENABLE 
TEST FOR TX DONE 

BR IF NOT SET 

; TURN ON SEND 

TURN ON START OF MESSAGE 
;LOAD THE NUMBER 

; CHECK by TIMER BIT 


; LEAR 
:DECREMENT THE NUMBER 


OF TIMES TO REPEAT 


:BR IF MORE TO GO 
;WAIT FOR DONE 


:BR IF SET 

sEXTERNAL CLOCKING STOPPED 
PUSH OUT DATA 

; TURN ON TRANSMITTER INT ENABLE 


:LOWER PROCESOR STATUS 


;LOAD THE NUMBER 
: CHECK THE TIMER BIT 
F SET 


: LEAR 
:DECREMENT THE NUMBER 


;OF TIMES TO REPEAT 


:BR IF MORE TO GO 
:FAILED TO INTERRUPT IN TIME 
:SCOPE THIS TEST 


:GET THE REGISTER AND DATA 


SEQ 0046 





C2 
C2 


I 4 
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CZDPDC.P11 O3-MAY-78 11:24 BINARY PATTERN TEST WITH BCC IN EXTERNAL MODE 


011762 123737 001240 001324 TEMP2,DATA sCHECK IT 
+4 :BR IF OK 
2 ; COMPARISON ERROR 
001240 TEMP2 ; COUNT UP EXPECTED 
001240 TEMP2 s;CHECK TO SEE IF DONE 
7$ :BR IF NO 
006746 R5,SETVEC 7 YES--RESET THE VECTORS 
s RECEIVER 
; TRANSMITTER 
012016 340 340 ‘ 340,340 ; LEVEL 


012020 000002 7$: ;RETURN 


; TRANSMiTTER: 
012022 113777 001236 167364 i2$: B TEMP1 ,aTXDBUF + LOAD THE sm i BUFFER 
001236 TEMP1 UP THE COUNT 
000377 001236 | alceaal ARE = DONE 


:BR IF NO 
012054 167326 #21$,aDUPTVC ;SETUP FOR NEXT PART 
13$ ; LEAVE 


000377 167332 #377,aTXDBUF | :LOAD BUFFER 
012072 167310 #228.aDUPTVC SETUP NEXT PART 


3 ; LEAVE 
001000 167314 : #TEOM, aTXDBUF 4 ge OF MSG 


° 
. 


DITTO 
000120 167300 WSEND!TXINTE ,@TXCSR ; TURN OFF TRANSMITTER 
006774 167260 #NO.BTRAP,@DUPTVC ;LOAD VECTOR 
011714 : #5$,(SP) CRUNCH STACK 
012124 000002 “ ; RETURNS 


012126 117737 167254 001324 : @RXDBUF ,DATA GET FIRST PART OF CRC 
167244 ar — ty; | SECOND PART 
167240 001242 @RXDBUF TEMPS GET THE REST OF THE CRC 
001242 001325 TEMPS ,DATA+1 SET UP CRC CHARACTER 
012164 #158, (SP) ;SETUP FOR RETURN 
7 RETURN 
000340 177776 : #340,PS : RAISE Ay 
007156 CALBCC ; INVERT BCC 
007156 001324 ee ft SOFTWARE AND HARDWARE BCC 
+ 


:BR 
4 ;BCC COMPARISON ERROR 
010000 001242 #CRCERR, TEMPS ;CHECK THE ERROR BIT 

+4 :BR IF NO ERROR 

012220 104004 a BCC ERROR=-RECEIVER DOESN'T 
;AGREE WITH WHAT TX SENT 

012222 052777 000400 167162 WMRESET,@TXCSR ;RESET THE DEVICE 
012230 004737 005044 PC,SMALL :WAIT FOR RESET TO FINISH 
012234 000137 011752 6$ :LEAVE 


peeteteeeeeeeeeeeceeeeeeete TEST 1] eeeeeeeeaceereeeeeeeeenenee 
s*THIS TEST WILL CHECK FOR ABORT SEQUENCE 
:*OF THE DUP IN A DATA STREAM 


PERERA AAA AAA A AAA RAARAAREA AERA 





J 4 
CZDPD-C MACY11 30A(1052) oe 11:29 PAGE 49 SEQ 0048 
CZDPDC.P11 O3-MAY-78 11:24 DATA STREAM ABORT SEQUENCE TEST 


MASA ARASAS SS 3 
* 


TEST 11 


ss Ree eeeeeee 
WERORRRBASAARARABAAAAAAALALALALAAAALALASSESASESSESESASAS SEES ERE S EERE ESSE SS 


is 


012240 012737 000011 001226 TST11: MOV #11,a#TSTNO 
012554 001216 #TST12,NEXT 
000400 167130 #MRESET,@TXCSR ;RESET THE DEVICE 
005044 PC, SMALL WAIT FOR RESET TO FINISH 
006746 R5,SETVEC ;SET UP INTERRUPT VECTORS 
4$ BASED ON THESE 
; PARAMETERS 
340 . 0 ; LEVEL 
RO : CLEAR 


DITTO 

000340 177776 340,PS 3PS=7 
010377 167070 #PRISEC!377,@PARCSR ;LOAD SEC STATION AND ADRS 
000120 167056 #RCVEN!RINTEN,@RXCSR ; TURN ON THE RECEIVER 
oorrie 167056 aati asia ; TURN ON TRANSMITTER 
167046 : @TXCSR CHECK FOR TXDONE 

1$ :BR IF NOT SET 
000400 167040 #TSOM,@TXDBUF ;TURN ON START OF MSG 
167032 : @TXCSR :WAIT FOR DONE 

2$ :AND THEN 
000377 167024 : #377 ,aTXDBUF ;LOAD A CHARACTER 

RO UPDATE CHARACTER COUNTER 
000005 #5,R0 SARE ALL CHARACTERS LOADED? 

2$ :BR IF NO 
002000 167006 #TABORT,@TXDBUF ; TURN ON ABORT 
000310 012436 #200. ,688 ;LOAD THE NUMBER 
004000 166772 66$: 4+ sae ca cmmms ; CHECK ph TIMER BIT 


004000 166762 67$: 4! eas carmel 


:BR IF CLE 
(PC)+ :DECREMENT THE NUMBER 
68$: . OF TIMES TO REPEAT 
66$ :BR IF MORE TO GO 
1 RECEIVER DID NOT INTERRUPT IN TIME 
001150 118: #STACK,SP sRESET STACK 
012450 104400 SCOPE ;SCOPE THIS TEST 
pega aaa SERVICE ROUTINE 
012452 017701 166726 4s: @RXCSR,R1 :GET THE CONTROL REGISTER 
166724 @RXDBUF ,R2 ;GET THE BUFFER 
000200 #RXDONE ,R1 CHECK FOR DONE 
5$ :BR IF DONE SET 
7 FALSE INTERRUPT 
000377 : #377,R2 CHECK DATA CHARACTER 
6$ :BR IF A MATCH 
;DATA ERROR 
: R3 INC THE # OF CHARS TO DO 
000003 #3,R3 :CHECK TO SEE IF DONE 
10$ BR IF MORE TO GO 
166666 : @RXCSR :CHECK FOR 
012516 100375 128 ; DONE 





kK 4 
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DATA STREAM ABORT SEQUENCE TEST 


@RXDBUF ,R2 
pepe 


CZDPD-C MACY11 30A(1052) SEQ 0049 


CZDPDC.P11 O3-MAY-78 1 
012520 017702 


oe 
1:24 


166662 + READ THE _—— 

002000 T rt 

10 :FAILED TO RECEIVE ABORT 

012444 7$: #118, (SP) SET UP FOR RETURN 

000400 166644 #MRESET,@TXCSR RESET THE DEVICE 

005044 PC, SMALL an RESET TO FINISH 
N 


012552 000002 : ;RETU 


seeteeteeeeteeeeeeeeecereee TEST 12 seaeeeeeeeeeeeeeeeeeeeeeeeee 
:*THIS TEST PROVES THE RECEIVER WILL STOP 

s*ACCEPTING DATA IF SHUT OFF IN THE MIDDLE 

:*OF A MESSAGE, AND THAT IT WILL NOT 

s*RESTART UNTIL IT RECEIVES A FLAG 


PRE E REE ERERE RAE EAE E AERA ERE ARERR 
ss Reeeekeeeeeee 


; TEST 12 
: * 


Skee eeeeeeeee 


012554 


012750 


012737 


000012 
013344 
000400 
005044 


006746 


166534 
000400 
000100 
000764 
004000 


004000 


001150 
006746 


340 


001226 
001216 
166614 


177776 
166556 
166544 
166544 


166526 


166504 
166474 


WEAR RARAAARARARARAARAARELASALALASLALLS LALA S ESE SESE EERE ESSER ESSERE RSS SS SO 


STl2: 


«BTR 
-BYTE 


#12,a#TSTNO 
#TST13,NEXT 
#MRESET,@TXCSR 
PC,SMALL 


RO 
R5,SETVEC 


340, 7 
¥340,P 
FCRCEN, @PARCSR 


RESET THE DEVICE 

sWAIT FOR RESET TO FINISH 
sCLEAR FOR SOFTWARE 

;SET UP THE VECTORS 


sRECEIVER 
; TRANSMITTER 


LEVEL 
sPROC STATUS=7 


#RCVEN'RINTEN, @RXCSR ; TURN ON RECEIVER 


#SEND!SYSTST,aTXCSR 


PS 

@TXCSR 

1$ 
#TSOM,@TXDBUF 
#TXINTE ,@TXCSR 
#500. 6 $ 

1 aera 
#TIMER,@TXDBUF 
67$ 

(PC)+ 

as 

#STACK, SP 


R5,SETVEC 


MP 540,340 


START TRANSMITTER 


STURN ON START OF MSG 
; TURN ON eet ENABLE 
OAD THE NUMBER 
; CHECK Tie TIMER BIT 
BR IF SET 


CHECK THE BIT 

:BR IF CLEAR 
;DECREMENT THE NUMBER 
OF TIMES TO REPEAT 


:BR IF MORE TO GO 

DEVICE FAILED TO INTERRUPT IN TIME 
RESET THE STACK 

;SCOPE THIS TEST 

SET UP VECTORS 

sRECEIVER 


; TRANSMITTER 
VEL 
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CZDPDC.P11 
012752 


013032 


013034 


013212 


013214 
013214 


052777 


000737 


017704 


104002 


052777 


000020 
166426 
000070 
000062 
004000 


004000 


166344 
166342 
000400 


000200 
000377 


013104 
166276 
000377 
000020 
013136 
166242 


166240 
000252 


166214 
166212 
000400 


000070 


000400 


03-MAY-78 
724 


166424 


166420 


013024 


166404 
166374 


166272 


166256 
166240 


166170 
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UNIQUE SHUTDOWN TEST 

#RCVEN, ARXCSR 
218: aTXCSR 

21$ 

#70, aTxDBUF 
718: ATINER,@TXDBUF 
72$: #TIMER, aTXDBUF 

72$ 

(PC)+ 


71$ 
1 


73$: 


BR 2$ 
z INTERRUPT SVC ROUTINES 


sRECEIVER 
3$: MOV @RXCSR,R4 
@RXDBUF RS 
#RSOM,RS 
4s 


11 
#RXDONE ,R4 
5$ 


7 
#377,R5 
6$ 


2 
#10$,aDUPRVC 
@RXDBUF ,R5 
#377,R5 


2 
#RCVEN,@RXCSR 
A aeaaeatiaiae 


@RXCSR,R4 
@RXDBUF ,R5 


@RXCSR,R4 
@RXDBUF RS 
#RSOM, (RS) 
24$ 


11 
#70,R5 
25$ 

2 


#MRESET,@TXCSR 


SEQ 0050 


: TEST DONE 

:BR IF NOT SET 

;PUSH ouT DATA CHARACTER 
LOAD THE NUMBER 

; CHECK rit TIMER BIT 


: LEAR 

:DECREMENT THE NUMBER 

:OF TIMES TO REPEAT 

BR IF MORE TO GO 

sFAILED TO INTERRUPT IN TIME 
:FINISH 


GET THE CONTROL REGISTER 
;GET THE BUFFER 

CHECK FOR START OF MSG 
:BR IF SET 

;FAILED TO RECEIVE SOM 
CHECK FOR DONE 

:BR IF SET 

FALSE INTERRUPT 

CHECK DATA 

:BR IF A MATCH 

DATA ERROR 

Hg oe THE VECTOR 

7 RETURN 


:GET THE BUFFER 

3; CHECK ~ CHARACTER 
:BR IF A MATCH 

DATA ERROR 

:TURN OFF THE RECEIVER 
RELOAD THE VECTOR 

7 RETURN 

:GET THE CONTROL REGISTER 
:GET THE BUFFER 

; CHECK THE CHARACTER 
7BR IF A MATCH 

FALSE INTERRUPT 


;DEVICE INTERRUPTED AFTER RX ENABLE 
WAS CLEARED 

:GET THE CONTROL REG 

:GET THE BUFFER 

;CHECK START OF MSG 

:BR IF SET 

;SOM FAILED TO SET 

CHECK DATA 

:BR IF A MATCH 

DATA FAILED TO MATCH AFTER 
RESTARTING RECEIVER 


sRESET THE DEVICE 
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CZDPDC.P11 


013222 
013226 
013232 


013234 


013342 


013344 


013460 


004737 
012716 
000002 


105777 


000002 


012737 


005000 


ot "peat 11 
1:24 


005044 
012732 


166152 


000377 
000062 
013274 


166112 


000252 
000003 


001400 
000100 
012740 


000013 


000340 


000377 


007000 


000005 


166142 


166110 


166102 


166064 
166054 


001226 
001216 
166024 


177776 


007152 
007156 
013446 


:29 PAGE 


52 

UNIQUE SHUTDOWN TEST 
PC, SMALL 
#28, (SP) 
@TXCSR 

30$: #377 ,aTXOBUF 
RO 
#2,R0 
15$ 
#16$,aDUPTVC 
RO 
15$ 
@TXCSR 
ye 
#252 ,aTXDBUF 
RO 
#3,R0 
15$ 
#TXINTE ,@TXCSR 
#208, (SP) 


WAIT FOR RESET TO FINISH 
CRUNCH STACK 
; RETURN 


CHECK DONE 

7BR IF SET 

;FALSE INTERRUPT 
;LOAD A CHARACTER 


;IN THE # TO DO 

;CHECK TO SEE IF ALL ARE SENT 
:BR IF MORE TO GO 

RELOAD THE VECT 

CLEAR CHAR COUNT 


: TEST DONE 


:BR IF SET 

FALSE INTERRUPT 

;LOAD A DATA CHARACTER 
:INC THE # TO DO 


:CHECK FOR ALL DONE 
BR IF MORE TO GO 
#TEOM! TSOM,aTXDBUF 


CRUNCH STACK 


END MSG 


peetteerereeeeeeeeeeeeeeeee TEST 13 ceeanaarereeeeeeeeeeeeeeeee 


s*THIS TEST WILL TRANSMIT CONTIGUOUS ONES CHARACTERS 
:*IN SECONDARY MODE WITH A BCC CHECK. 


PARRA RBRAARAAAAALASASEAASLALALAALASESASALELESEA SESSA ES ESE SEL ESS SS 


TTTTITT TTT TT 


: * 
; TEST 13 


ot 
RASA RALAS SS 


MOR RRAASALAAAAALLALEALEALLALASE SESSA EASA LESSEE ESE SESE ESSE SESE S ERR SESE SSS 


#13, a#TSTNO 
#TST14,NEXT 
#MRESET ,@TXCSR 
PC, SMALL 
#340,PS 

RO 


R2 
#377,R1 :C 
#CRC.CCITT,XPOLY ;LOAD THE POLYNOMINAL 


#-1,CALBCC 
cast. ae 


R1,2$ 
R5,SIMBCC 


RESET THE DEVICE 
WAIT FOR RESET TO FINISH 
SET STATUS=7 


;SETUP FOR SOFTWARE 


ALCULATION OF BCC 


;SETUP FOR FIRST TIME 

ALLOW FOR THE NEXT CHARACTER 
LOAD DATA 

:GO CALCULATE SOFTWARE BCC 
~—— ON THOSE PARAMETERS 


DATA 
;PREVIOUS BCC 


INC THE # OF CHARS TO DO 
: ARE -_ DONE? 


R_IF NO 
CLEAR OUT HOLD 


SEQ 0051 





CZ 
CZ 
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CZDPDC.P11 
013462 


013614 


013616 


013652 
013654 


013720 


013722 
013730 


004537 


005037 
012737 


104001 


052777 
004737 
104400 


017737 


000002 
117737 


000002 


012777 


001017 


— 11 
1:24 


006746 


340 
010377 
000120 
004020 
165670 
000400 
000100 
177776 


000040 
004000 


004000 


000400 
005044 


165564 
001324 


000004 
013654 
165526 
165516 
165512 


007156 
007156 


013602 


000377 
000005 


165706 
165674 
165674 


165662 
165652 


013574 
165634 
165624 


165602 


001324 


165522 


001324 


001325 
001324 


165464 


729 PAGE 53 
CONTIGUOUS ONES OUTPUT TEST 


N 4 
SEQ 0052 


R5,SETVEC ;LOAD INTERRUPT VECTORS 
; RECEIVER 
; TRANSMITTER 

340,340 


;LEVEL 
¥PRISEC!377, @PARCSR sENTER SECONDARY MODE 
#RCVEN'RINTEN, @RXCSR ; TURN ON RECEIVER AND INTERRUPTS 
#SEND!SYSTST,aTXCSR ; TURN ON TRANSMITTER 
@TXCSR 
208 
#TSOM,@TXDBUF ;START MESSAGE 
#TXINTE,@TXCSR ;TURN ON INTERRUPT ENABLE 
PS LOWER PS 


#32. ,68$ ;LOAD THE NUMBER 
Hace tect ;CHECK THE TIMER BIT 


#TIMER ,@TXDBUF 
67$ 


:BR IF CLEAR 
(PC)+ :DECREMENT THE NUMBER 
OF TIMES TO REPEAT 
66$ :BR IF MORE TO GO 
1 :FAILED TO INTERRUPT IN TIME 


WMRESET,@TXCSR ;RESET THE DEVICE 
PC, SMALL sWAIT FOR RESET TO FINISH 
:SCOPE THIS TEST 


: INTERRUPT SERVICE ROUTINES. 


sRECEIVER 
6$: MO 


@RXDBUF ,DATA ;GET THE DATA 

R1,DATA :CHECK IT 

+4 :BR IF A MATCH 

2 DATA ERROR 

RO sUPDATE THE # OF CHARS TO DO 
#4,R0 CHECK FOR ALL CHARS DONE 

7$ BR IF MORE TO GO 
#10$,aDUPRVC 4h hy GET BCC 


@RXDBUF ,DATA :GET THE FIRST HALF OF BCC 
@RXCSR WAIT FOR 
274 THE SECOND HALF 
@RXDBUF ,DATA+1 :GE THE SECOND HALF 
CALBCC BCC 
CALBCC,DATA 
+4 IF OK 
4 TBC COMPARE ERROR 
#5$, (SP) FINISH TEST 

TURN 


#377 ,aTXDBUF ;LOAD A DATA CHARACTER 

R2 INC THE # OF CHARS TO DO 
#5 ,R2 :CHECK TO SEE OF DONE 

13$ :BR IF MORE TO GO 





B 5 
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CZ0PDC.P11 O3-MAY-78 11:24 CONTIGUOUS ONES OUTPUT TEST 


013740 orate 013750 165432 oe sae TURN NEXT VECTOR 
001000 165436 12$: #TEOM, aTXDBUF 7 END MSG 


‘DITTO 
000120 165422 #SEND!TXINTE ,@TXCSR ; TURN OFF TRANSMITTER 
006774 165402 #NO.BTRAP,@DUPTVC ;RESET THE VECTOR 
013544 : #4$, (SP) :GO BACK TO WAIT LOOP 
014002 000002 ; RETURN 


peeeeeeeteeereeeeeeeeeeeeee TEST 14 ceeeeeeeaaeaeecaeeeeeeeeeee 
;*THIS TEST PROVES THE INTERACTION OF DEC MODE, 
:*TSOM, SYNC, TXACT, TXDONE 


FERRARA RARER AERA REAR ETE AREA EEE AAEAAEAERAAEEAAEREREREEAEERERERE 


TRAE 
* 


014004 012737 000014 001226 : #14,a#TSTNO 
001216 M #TST15,NEXT 
165364 WMRESET,@TXCSR ;RESET THE DEVICE 
PC, SMALL sWAIT FOR RESET TO FINISH 
165350 Sinha 


ENTER SYSTEM TEST MODE 

3; TURN ON TRANSMITTER 
#TSOM! 26, aTXDBUF ;OUTPUT A SYNC CHAR 
#5,68$ ;LOAD THE NUMBER 

004000 165316 : #TIMER,@TXDBUF ; CHECK pies TIMER BIT 


004000 165306 : ae capita 


(PC)+ ;DECREMENT THE NUMBER 
OF TIMES TO REPEAT 

66$ :BR IF MORE TO GO 
165270 @TXCSR,R4 GET THE CSR 
000200 #TXDONE ,R4 :CHECK TRANSMITTER DONE 

1$ :BR IF SET 

16 :TXDONE FAILED TO SET 
001000 2 | nea at TEST ACTIVE 


BR IF SET 
104017 17 sACTIVE FAILED TO SET 


2s: 
052777 000400 165242 #MRESET,@TXCSR ;RESET THE DEVICE 
004737 005044 PC, SMALL ;WAIT FOR RESET TO FINISH 
014154 104400 ;SCOPE THIS TEST 


peettetereeeeeeeeeeereeeeee TEST 15 eaeeeeeeneaeeeeteeeereeeent 
;*THIS TEST PROVES THE INTERACTION OF TEOM, 
;*SEND, TXACT AND TXDONE IN DEC MODE. 


POR PSR RARSARARSALEARSALALARAASASEAAE ALAS ECE ES ESSE SESE R SAS ASS SS OD 


pi ekkekeeeeeee 





. 2 
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CZDPDC.P11 O3-MAY-78 11:24 DECMODE, TEOM, SEND, TXACT, TXDONE INTERACTION TEST 


& 


; TEST 15 


: * 
Preeeeeeeeeees 
FERRARA RARER RARER EEE AEA E ERATE AREER RARER RAERAEEER 
014156 012737 000015 001226 TST15: #15,a#TSTNO 
001216 #TST16,NEXT 
165212 WMRESET,@TXCSR ;RESET THE DEVICE 
PC, SMALL ;WAIT FOR RESET TO FINISH 
165176 #DECMOD !26!CRCEN. @PARCSR 
165172 #SYSTST,@TXCSR sENTER SYSTEM TEST MODE 
165164 #SEND, aTXcsR > TURN ON TRANSMITTER 
165160 #TSOM! 26, aTXDBUF ;OUTPUT A SYNC CHAR 
165152 : aTXCSR ; CHECK FOR DONE 
1$ 3;BR IF NOT YET 
000426 165144 Stacea aTXDBUF LOAD A SECOND SYNC 
165136 : a CSR 


001000 165130 #TEOM, aTXDBUF 3 OF MSG 
#SEND,aTXCSR :TURN OFF TRANSMITTER 
#25 ,68$ ;LOAD THE NUMBER 

004000 165106 : aie nacaaaate ;CHECK THE TIMER BIT 


004000 165076 : aes tigen 
(PC)+ ;DECREMENT THE NUMBER 


OF TIMES TO REPEAT 
:BR IF MORE TO GO 


66$ 
165060 a@TXCSR CHECK DONE 

3$ 7BR IF SET 

16 ;DONE FAILED TO SET AFTER TURNING OFF TX. 
001000 165046 : #TXACT,@TXCSR CHECK ACTIVE 

4$ :BR IF OFF 

20 sACTIVE IS STILL SET-SHOULD BE RESET 

014350 104400 $ :SCOPE FOR THIS TEST. 


peeteeeteteeeeeeeeeeeeeeeee TEST 16 eeeeeaeeeeeeeeeeeeeeeeeeeee 
:*THIS TEST PROVES THAT THE DUP WILL NOT 
7*SYNC UP IN LESS THAN TWO SYNCS 


POR ASA SASASSASASAASASASASASA SSAA LE LASSE SLES AAAS RES R REE RSA SSD S OY 


RASS AL SALE SS | 
® 


; TEST 16 


* 
+ eeeeeeeetete 
EPI TI CTT P rir iri rir irri iri tii iiiritititititiiiiiiiitititi titi 
014352 012737 000016 001226 ‘ #16,a#TSTNO 
001216 #TST17,NEXT 
165016 WMRESET,@TXCSR ;RESET THE DEVICE 
PC, SMALL WAIT FOR RESET TO FINISH 
165002 #DECMOD!26!CRCEN.@PARCSR 
#SYSTST,@TXCSR ENTER SYSTEM TEST MODE 
#RCVEN,@RXCSR ; LOAD RCVEN 
014422 052777 000020 164762 #SEND,@TXCSR ; TURN ON TRANSMITTER 





Pent 
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014430 012777 000426 164756 #TSOM! 26,aTXDBUF ;OUTPUT A SYNC CHAR 
164750 1$: aTXCSR ;CHECK TRANSMITTER DONE 
1$ WAIT TILL SET 
000125 164742 #125 ,aTXDOBUF ;LOAD DATA 
000005 014502 #5 ,68$ ;LOAD THE NUMBER 
004000 164726 : tae aimee: ; CHECK a TIMER BIT 


:B 
004000 164716 : ee canned 5 


;DECREMENT THE NUMBER 
:OF TIMES TO REPEAT 
66 :BR IF MORE TO GO 
164672 CHECK FOR RECEIVER DONE 
2$ BR IF NOT SET 
sDEVICE SYNCS UP IN LESS THAN 2 SYNCS!! 
000472 ; LEAVE 


052777 000400 164664 WMRESET,@TXCSR ;RESET THE DEVICE 
PC, SMALL sWAIT FOR RESET TO FINISH 
164650 #CRCEN!DECMOD!26,@PARCSR ;LOAD THE MODE AND SYNC CHAR 
#RCVEN,@RXCSR ; TURN ON RECEIVER 
#SYSTST @fXCSR sENTER SYSTEM TEST MODE 
#SEND ,aTXCSR ; TURN ON TRANSMITTER 
164624 #TSOM! 26, aTXDBUF ;OUTPUT A SYNC CHAR 
164616 : @TXCSR CHECK DONE 
69$ BR IF NOT SET 
000426 164610 #TSOM!26,aTXDBUF ;SEND SYNC 
164602 3 neta CHECK DONE 


3 sWAIT 
000125 164574 #125,aTXDBUF ;LOAD DATA 
000020 014650 #20,74$ ;LOAD THE NUMBER 
004000 164560 : a ; CHECK pe TIMER BIT 


004000 164550 ; 1 IMERATHDBUF : 


LEAR 
(PC)+ :DECREMENT THE NUMBER 
OF TIMES TO REPEAT 
72$ BR IF MORE TO GO 
164524 @RXCSR CHECK FOR DONE 
4$ :BR IF SET 
22 FAILED TO RECEIVE DATA 
164516 001236 : @RXDBUF ,TEMP1 READ DATA 
000125 001236 #125, TEMP ; CHECK 4 
5$ BR IF MATCH 
104022 22 DATA COMPARE ERROR 


052777 000400 164500 , WMRESET,@TXCSR ;RESET THE DEVICE 
004737 005044 PC, SMALL WAIT FOR RESET TO FINISH 
104400 SCOPE THIS TEST 


peeeteteeeeeeeeeeeceeeceeat TEST 17 raeeeeeeeeeeeeeeereeeeeeeee 
*THIS TEST PROVES THE RECEIVER WILL STRIP THE FIRST 
:*TWO SYNCS AND WILL PRESENT ALL SUBSEQUENT SYNCS. 


POPP SARA SRARARASASASARARSARARARAASL AEE ESE A ASE A EASES SEES ER ER SELES S| 





on 


—E 5 
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RAR AAAAAASS SD 


; TEST 17 
. * 


Sr keeeeeeeeeee 
SERRA REAR RAAREEAR EAR EEA A REET ERE ATER EERE RETR REE ERE ee 
014720 012737 000017 001226 : #17,a#TSTNO 
001216 #TST20,NEXT 
164450 oe sami anes i RESET THE DEVICE 
PC,SMA WAIT FOR RESET TO FINISH 
164434 #DECROD 126! CRCEN- @PARCSR 
#SYSTST,@TXCSR sENTER SYSTEM TEST MODE 
#RCVEN, ARXCSR ;LOAD RCVEN 
#SEND,@TXCSR ;TURN ON TRANSMITTER 
#TSOM!26,aTXDBUF ;OUTPUT A SYNC CHAR 
004000 164402 : #TIMER,@TXDBUF ; CHECK THE TIMER BIT 
64$ :BR IF SET 
004000 164372 : #TIMER,@TXDBUF ;CHECK THE TIMER BIT 
65$ BR IF CLEAR 
164362 : a@TXCSR CHECK DONE 
69$ :BR IF NOT SET 
000426 164354 #TSOM!26,aTXDBUF ;SEND SYNC 
164346 : @TXCSR CHECK DONE 
70$ BR IF NOT SET 
000426 164340 #TSOM!26,aTXDBUF ;SEND SYNC 
000020 015104 #20,75$ ;LOAD THE NUMBER 
004000 164324 : a ; CHECK ph TIMER BIT 


:B 
004000 164314 : Y gaa imeeale ; 


(PC)+ :DECREMENT THE NUMBER 
OF TIMES TO REPEAT 
73% :BR IF MORE TO GO 
164270 @RXCSR CHECK FOR DONE 
1$ :BR IF SET 
21 :DONE NOT SET-DEVICE FAILED TO SYNC UP 
164262 001236 : @RXDBUF ,TEMP1 ;READ BUFFER 
000026 001236 26, TEMP CHECK FOR SYNC 
2$ BR IF OK 
22 ;DATA ERROR 
015140 104400 : ;SCOPE THIS TEST 


peeeteeeeeteeeeeeeeeeeceeee TEST 20 reeeeeeeeeeeeeeeeeeeereeeee 
s*THIS TEST PROVES THE DUP11 WILL 
s*IDLE SYNCS. IDLE 64. SYNCS 


POR PARR RSASSALASSASEASALARAARASARA ESE ARAL EEE SSSR SSE RSS SA SEAS SS OY 


SERA 


; TEST 20 


- eeeeeeetetet 
CCST ISIS SSIS T iPro r irri irri titi i iti titi ti titi ti titititi ii iti t ts 
015142 012737 000020 001226 TST20: MoV #20,a#TSTNO 
015150 012737 015406 001216 MOV #TST21, NEXT 





on 
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015156 052777 000400 164226 me anak ‘hea at: My THE DEVICE 
PC,SMA WAIT FOR RESET TO FINISH 
164212 #DECMOD 126! CRCEN @PARCSR 
#SYSTST,@TXCSR sENTER SYSTEM TEST MODE 
#RCVEN ,ARXCSR ;LOAD RCVEN 
#SEND,a@TXCSR ; TURN ON TRANSMITTER 
164166 #TSORi 26, aTXDBUF ;OUTPUT A SYNC CHAR 
164160 : @TXCSR CHECK DONE 
64$ BR IF NOT SET 
000426 164152 araraa @TXDBUF ;SEND SYNC 
164144 : @TXCSR CHECK DONE 
65$ :BR IF NOT SET 
000426 164136 #TSOM!26,aTXDBUF ;SEND SYNC 
001236 TEMP1 
001240 TEMP2 
000100 001236 #64. , TEMP LOAD # OF SYNCS 
000010 015324 #10,70$ ;LOAD THE NUMBER 
004000 164104 : a aces ; CHECK ant TIMER BIT 


004000 164074 : a IMER.QTXDBUF ; 


(PC)+ ;DECREMENT THE NUMBER 
;OF TIMES TO REPEAT 
68$ :BR IF MORE TO GO 
164056 : — ; 


H ET 
16 :DONE FAILED TO SET 
000426 164046 ; #TSOM!26,aTXDBUF LOAD A SYNC 
001236 TEMP1 ;LOWER THE # OF SYNCS TO DO 
4$ :BR IF MORE TO GO 
015354 104400 : ;SCOPE THIS TEST 


015356 105777 164022 : @RXCSR : CHECK RECEIVER DONE 
4$ sWAIT TILL SET 
164016 001240 @RXDOBUF ,TEMP2 :GET THE BUFFER 
000026 001240 + ehtaaeat an it - FOR SYNC 
21 CHARACTER IS TEMP2 NOT A SYNC! 
015404 000763 3$ LEAVE TEST 


peeeeeeeeeeereeeeeeeeeeenee TEST 21 ceeeeeeeeeeeeeeeeeeeeeeenee 
:*THIS TEST PROVES THE STRIP SYNC 

;*FUNCTION OF THE RECEIVER. SYNC UP 

;*THE RECEIVER, SEND DATA WITH A SYNC 

:*CHARACTER IMBEDDED AND CHECK FOR 

:*THE SYNC TO BE RECEIVED. 


MPARBRAAAAAAAALASASARASASASASSESAS EASES EAE EASE ASRS ESSERE RES ES SS 
;:aenneenneere 


TEST 21 


+ eeeeeeeeeeee 

PPP CPSP PPPS eit errr iri titi ri rir iri titi tirii iii tititi titi titi i titty, 
015406 012737 000021 001226 TST21: MoV #21,a#TSTNO 

2858 015414 012737 016126 001216 MOV #1ST22,NEXT 


if 





on 
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015422 
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015440 
015442 


015712 


015714 


015740 
015742 
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012737 


104023 


017700 


104025 


— 78 
1:24 


000340 
006746 

340 
000400 


163674 


000426 
163660 


000426 
163644 


000426 
177776 
000100 
163616 


000252 
163602 


000026 
163566 


000125 
163552 


001000 


004000 
004000 


163464 
163462 
000200 


004000 


177776 


163742 


163726 


163702 


163666 


163652 


163636 
163614 


163610 


163574 


163560 


163544 


163522 
163512 


11:29 PAGE 59 


STRIP SYNC FUNCTION TEST 


64$: 


65$: 


69$: 
70$: 


71$: 


5$: 


6$: 


MOV #340,PS 
JSR R5,SETVEC 
5$ 

NO.BTRAP 
-BYTE 340,340 


BIS #MRESET,@TXCSR 
JSR PC, SMALL 


SEQ 0058 


sRAISE STATUS 
;SET UP VECTORS 
;BASED ON 

; THESE 

; PARAMETERS 


RESET THE DEVICE 
WAIT FOR RESET TO FINISH 


MOV #DECMOD!26!CRCEN, @PARCSR 


BIS #SYSTST,@TXCSR 


BIS aRCVEN! STPSYN,ARXCSR 


BIS #SEND ,aTXCS 


MOV #TSOM! 26, a@TXDBUF 


sENTER SYSTEM TEST MODE 
;LOAD RCVEN! STPSYN 
;TURN ON TRANSMITTER 
;OUTPUT A SYNC CHAR 


TSTB aTXCSR CHECK DONE 

BPL 64% BR IF NOT SET 

MOV ths nt cantina SEND SYNC 

TSTB a@TXCSR ;CHECK DONE 

BPL 65$ BR IF NOT SET 

MOV by ol a @TXDBUF ;SEND SYNC 

TSTB @TXCSR ; CHECK DONE 

BPL 66$ BR IF NOT SET 

MOV #TSOM!26,aTXDBUF ;SEND SYNC 

CLR PS LOWER PS 

BIS #WRINTEN,@RXCSR ; TURN ON INTERRUPTS 
:CHECK TX DONE 


TSTB nae 
MOV #252 ,aTXDBUF 
a@TXCSR 
2$ 
MOV #26, aTXDBUF 
TSTB @TXCSR 
3$ 
MOV #125 ,aTXDBUF 
aTXCSR 
MOV #TEOM, aTXDBUF 
BIC #SEND ,@TXCSR 
MOV #40.,71$ 
BIT #TIMER,@TXDBUF 
69$ 


BIT #TIMER,@TXDBUF 
70$ 


DEC (PC)+ 
40. 

BNE 69$ 
HLT 23 


be taatateg ah a vl SERVICE ROUTINE 


@RXCSR 
MOV @RXDBUF ,R1 
BIT #RXDONE ,RO 
6$ 
24 
BIT #RECACT,RO 
7$ 


HLT 25 


sWAIT FOR SET 

;LOAD A CHARACTER 
CHECK TX DONE 
sWAIT TO BE SET 
;LOAD THE SYNC CHAR 
mit DONE AGAIN 


WAI 

;LOAD ANOTHER CHARACTER 
CHECK DONE 

WAI 


: T 

;SET END OF MESSAGE 

7 TURN OFF TRANSMITTER 
;LOAD THE NUMBER 


:CHECK THE TIMER BIT 
:BR IF SET 


:B I 
;DECREMENT THE NUMBER 
OF TIMES TO REPEAT 


:BR IF MORE TO GO 


;FAILED TO TAKE A RECEIVER INTERRUPT 


READ CSR 

;READ BUFFER 

; CHECK FOR DONE 
BR IF SET 


:RX DONE FAILED TO SET-ERRONEOUS INTERRUPT 


CHECK FOR ACTIVE 
BR IF SET 
sRX ACTIVE FAILED TO SET 


on 
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015744 7$: 
005701 R1 ;CHECK FOR ERROR 
10$ ;BR IF NO ERROR 
26 RECEIVER ERROR 
000252 : + + laa Sg Ay CORRECT DATA 
K 


;BR I 
22 ;DATA FAILED TO MATCH 
015772 163404 : #12$,aDUPRVC ;LOAD VECTOR 
208 3 CONT INUE 
163406 : @RXCSR,RO ;READ CSR 
163404 @RXDBUF ,R1 ;READ BUFFER 
000200 #RXDONE ,RO ;CHECK FOR DONE 
13$ 7BR IF OK 
3RX DONE FAILED TO SET-ERRONEOUS INTERRUPT 
; TEST FOR ERROR 
;BR IF NO ERROR 
26 sERROR SET 
000026 $ ;CHECK CHARACTER 
6$ 7BR IF OK-IF NOT, THEN 
000125 ;CHECK FOR CLEARING SYNC 
15$ ;BR IF A NEXT CHARACTER 
sERRONEOUS CHARACTER 
7BR TO END OF TEST 
15$: 21 sSTRIPPED OUT THE SYNC CHAR!! 
016052 163324 #21$,aDUPRVC :SET UP VECTOR 
208 ; LEAVE 


163326 : @RXCSR,RO GET CSR 
163324 @RXDBUF ,R1 GET BUFFER 
000125 #125,R1 CHECK DATA 
16$ ;BR IF A MATCH 
22 DATA COMPARE ERROR 
004000 163304 : es TEST ACTIVE 


:BR IF ON 
104025 25 ACTIVE SHOULD BE ON 


1 
052777 000400 163300 WMRESET,@TXCSR ;RESET THE DEVICE 
004737 005044 PC, SMALL sWAIT FOR RESET TO FINISH 
012706 001150 #STACK, SP sRESET STACK 
104400 ;SCOPE THIS TEST 
016124 000002 : ;RETURN 


peteeeeeeeeeeerereeeeeeeene TEST 22 ceeaeeeteeeeteeeeeeeeeeenee 

:*THIS TEST PROVES THAT A BINARY COUNT 

;*PATTERN CAN BE RUN IN DEC MODE 

;*WITHOUT A BCC CALCULATION 

SERRA ARERR AERA AEA A TERRA EERE R AREER EE 
j renenenennces 


* 
TEST 22 
* 


+ eeeeeeeeeeet 

OPEC CI CITI t Teri lit iri titi ii rit iii titi iii ti titi tii tit iti titi titty 
016126 012737 000022 001226 TST22: mov #22,a#TSTNO 
016134 012737 016610 001216 MOV #1ST23,NEXT 

2970 016142 012737 000340 177776 MOV #340,PS 


Ts 





on 
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016150 005000 


016164 
016166 


052777 
012737 


104023 
052777 


016366 104400 


016370 017702 


016436 100004 


Me amt 
1:24 


006746 


340 
000400 


004000 
004000 
163130 
000426 
177776 
000100 
000100 


000310 
004000 


004000 


000400 
005044 
001150 


163010 
163006 
004000 


016350 
000200 


016350 


163216 
163202 
163176 
163162 
163162 
163156 
163150 


163140 


163122 


163100 
163100 


016342 
163066 


163056 


163034 


11:29 PAGE 61 
DATA TEST 


R1 
R5,SETVEC 


340,340 


#MRESET ,@TXCSR 
PC, SMALL 
#DECMOD!26!CRCEN, 
#SYSTST ,@TXCSR 
#RCVEN, ARXCSR 
#SEND,aTXCSR 
#TSOM! 26,aTXDBUF 
#TIMER ,@TXDBUF 
64$ 


#TIMER,a@TXDBUF 
65$ 

@TXCSR 

6 


9$ :BR 
a 


#RINTEN,@RXCSR 
#TXINTE ,@TXCSR 


#200. ” 74% 
#TIMER,aTXDBUF 
728 

#TIMER ,aTXDBUF 
738 

(PC)+ 


SEQ 0060 


CLR OUT DATA POINTER 
DITTO 


;SET UP INTERRUPTS 
sRECEIVER 
; TRANSMITTER 

VEL 


- 
. 


ots be THE DEVICE 
AIT FOR RESET TO FINISH 


SPARCSR 
ENTER SYSTEM TEST MODE 
;LOAD RCVEN 
; TURN ON TRANSMITTER 
:OUTPUT A SYNC CHAR 
sCHECK THE TIMER BIT 
BR IF SET 
;CHECK THE TIMER BIT 
BR IF CLEAR 
CHECK DONE 
IF NOT SET 
SEND SYNC 


; TURN ON INT ENABLES 
ITTO 


;LOAD THE NUMBER 


:CHECK THE TIMER BIT 
;BR IF SET 

CHECK THE BIT 

BR IF CLEAR 
;DECREMENT THE NUMBER 


:OF TIMES TO REPEAT 


72$ 
23 


#MRESET ,@TXCSR 
PC, SMALL 
#STACK, SP 


RECEIVER INT SVC ROUTINE 
MOV @RXCSR,R2 


@RXOBUF ,R3 
eesCaet Ae 


25 

#3$, (SP) 
12$ 
#RXDONE ,R2 
6$ 


BR IF MORE TO GO 


sFAILED TO FINISH TEST 


RESET THE DEVICE 
sWAIT FOR RESET TO FINISH 


sRESET THE STACK 
:SCOPE THIS TEST 


:SAVE CSR 

:SAVE BUFFER 
TEST RX ACTIVE 
BR IF OK 

sACTIVE NOT SET 
;SETUP FOR RETURN 


: TEST DONE 
BR IF OK 


;FALSE INTERRUPT 
SETUP FOR RETURN 


;CHECK FOR ERROR 
;BR IF NO ERROR 





on 
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016440 104026 26 ;DATA ERROR 
016350 oo SET UP RETURN 


R1,R3 ;CHECK DATA 

10$ ;BR IF OK 

22 :BAD DATA 
016350 i ; SETUP RETURN 


R1 UPDATE DATA 
11$ ;BR IF MORE TO GO 
016350 #3$,(SP) 7 SETUP RETURN 
016504 ; : #22$,aDUPRVC ote NEW RETURN FOR INTERRUPT 
; RETURN 


162674 : @RXCSR,R2 : 
162672 @RXDBUF WR3 


7 ERROR 
:DATA COMPARE ERROR 


016359 
016540 000760 


; TRANSMITTER 
016542 010077 162646 : MOV RO, aTXDBUF ;PUSH OUT DATA 
RO ;UPDATE IT 
21$ ;BR IF MORE 
162634 : — bony FOR NEXT DONE 


WAI 
001000 162626 #TEOM, aTXDBUF ;END MSG 
000120 162616 #SEND!TXINTE,@TXCSR ;SHUT OF TRANSMITTER 
006774 162576 #NO.BTRAP,aDUPTVC ;RESET VECTOR ADRS 
016312 : #308, (SP) 
016606 000002 RETURN 


pteetetereeeeteeteeeeeeeeee TEST 23 eeaeeaeeeeeeaeeeeeeeeeeeeeeee 

:*THIS TEST PROVES THAT A BINARY COUNT 

;*PATTERN CAN BE RUN IN DEC MODE 

s*WITH A BCC CALCULATION USING 

7*THE CRC16 POLYNOMIAL 

PERRET AAA EAA AAA REAR AEE 
SS eeekeeeeeeee 


TEST 23 
® 


Sr teeeeeeeeeee 
POO CSET ITEC SiC rir rrr i irri ri rir iri riririritirititititiiiiiiiit 
016610 012737 000023 001226 TST23: MOV #23, a#TSTNO 
012737 017432 001216 MOV #TST24,NEXT 
012737 000340 177776 MOV #340,PS 
016632 005000 CLR RO 
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016634 012737 120001 007152 #CRC16,XPOLY SET THE POLYNOMIAL 
6 CALBCC CLEAR OUT OLD BCC 
016670 : CALBCC,35$ ; LOAD oa 
RO,2$ ;LOAD DAT 
007000 R5,SIMBCC CALCULATE A SOFTWARE BCC 


ON THESE 

; PARAMETERS 

UPDATE DATA 

:BR IF MORE TO GO 
Sak DATA POINTER 


1 :DITTO 
006746 R5,SETVEC SET UP INTERRUPTS 
RECEIVER 
; TRANSMITTER 
016712 340 . 340,340 sLEVEL 


016714 000400 162470 #MRESET ,@TXCSR :RESET THE DEVICE 
PC, SMALL WAIT FOR RESET TO FINISH 
162454 #DECHOD !26, @PARCSR ;LOAD THE MODE AND SYNC CHARACTER 

#SYSTST @TXCSR ENTER SYSTEM TEST MODE 
#RCVEN,ARXCSR LOAD RCVEN 
#SEND,@TXCSR TURN ON TRANSMITTER 
#TSOM! 26,aTXDBUF ;OUTPUT A SYNC CHAR 

004000 162422 : #TIMER,@TXDBUF ;CHECK THE TIMER BIT 
64$ BR IF SET 

004000 162412 : #TIMER,@TXDBUF ;CHECK THE TIMER BIT 
65$ :BR IF CLEAR 

162402 : @TXCSR CHECK DONE 
69% :BR IF NOT SET 

000426 162374 #TSOM!26,aTXDBUF  ;SEND SYNC 

177776 PS 

000100 162352 #RINTEN,@RXCSR ; TURN ON INT ENABLES 

052777 000100 162352 #TXINTE ,@TXCSR DITTO 


012737 000310 017070 #200. ,74$ ;LOAD THE NUMBER 
004000 162340 : ae ; CHECK THE TIMER BIT 


:B 
004000 162330 : #TIMER,@TXDBUF ; 
73$ 7B 


AR 
(PC)+ ;DECREMENT THE NUMBER 
OF TIMES TO REPEAT 
72$ BR IF MORE TO GO 
104023 23 :FAILED TO FINISH TEST 


3$: 
052777 000400 162306 WMRESET,@TXCSR ;RESET THE DEVICE 
004737 005044 PC,SMALL WAIT FOR RESET TO FINISH 
012706 001150 #STACK,SP sRESET THE STACK 
104400 :SCOPE THIS TEST 


RECEIVER INT SVC ROUTINE 
017702 162262 : @RXCSR,R2 :SAVE CSR 
162260 @RXDBUF ,R3 ;SAVE BUFFER 
004000 #RECACT,R2 ;TEST RX ACTIVE 
017132 001004 5$ :BR IF OK 
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017134 104025 25 sACTIVE NOT SET 
017076 > teal ;SETUP FOR RETURN 


000200 : #RXDONE ,R2 zs TEST DONE 

6$ ;BR IF OK 

24 ;FALSE INTERRUPT 
017076 13$ ;SETUP FOR RETURN 


CHECK FOR ERROR 
;BR IF NO ERROR 
26 DATA ERROR 
017076 138 ;SET UP RETURN 


CHECK DATA 
:BR IF OK 
22 BAD DATA 

017076 t= al ;SETUP RETURN 


R1 UPDATE DATA 
11$ ;BR IF MORE TO GO 
017234 os ;SETUP TO FINISH TEST 


2$ 
017324 162142 : #22$,aDUPRVC aaron NEW RETURN FOR INTERRUPT 
: URN 
162144 : a dee DONE 
Al 


3$ ; 
162140 001236 @RXDBUF ,TEMP1 :GET DAT 
162130 : ° i ae DONE FOR HALF OF CRC 
:WAI 


162124 001240 @RXOBUF , TEMP2 sMOVE IT 
001240 001237 TEMP2, TEMP1+1 ; COMBINE BCC CHARACTER 
007156 001236 CALBCC, TEMP1 :BR IF A MATCH 
15$ sAFTER CHECKING IT 
017302 104027 27 CRC COMPARE ERROR-~THE 
:SOFTWARE DOESN'T AGREE 
WITH WHAT THE TRANSMITTER 
;SENT. SEE THE FRONT OF 
THE LISTING FOR SPECIAL 
CRC DEBUG AID TEST. 
017304 032737 010000 001240 : #CRCERR,TEMP2 : CHECK FOR ERROR 
017312 001001 16$ :BR IF OK 
017314 104030 30 HARDWARE DETECTED CRC ERROR 
RECEIVER DOESN'T AGREE WITH 
;WHAT THE TRANSMITTER SENT 
;SEE FRONT OF LISTING FOR 
SPECIAL CRC DEBUG AID 
017316 012716 017076 : {eli ;LOAD END OF TEST 


; RETURN 
162054 ; @RXCSR,R2 
162052. some £3 
23$ 
26 
R1,R3 


248 
017346 104022 22 ;DATA COMPARE ERROR 


; ERROR 
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017350 105201 248: INCB R1 

001327 12$ 

012777 017234 162012 #13$,aDUPRVC 
017362 000723 12$ 


; TRANSMITTER 
017364 010077 162024 : MOV RO,@TXDBUF PUSH OUT DATA 
RO UPDATE IT 
218 BR IF MORE 
162012 : ao doy? FOR NEXT DONE 


sWA 
001000 162004 #TEOM, aTXOBUF sEND MSG 
#SEND!TXINTE,@TXCSR ;SHUT OF TRANSMITTER 
#NO.BTRAP,a@DUPTVC ;RESET VECTOR ADRS 
017040 : #30$, (SP) 
017430 000002 ;RETURN 





peeeeteteeeeerereeeeeeeeeee TEST 24 ceaarkaeeeeeeeeenerkeeeeeeee 
s*TEST TO PROVE THE DEVICE IDLES SYNCS AND 
s*WILL SHIFT OUT DATA AT THE APPROPRIATE TIME 


PPR ARARARARASRRAAASARAAAAALALAASL ALA LE LALA AREAL ASSESS EARS EASES SS 
SRR 


; TEST 24 


* 
Sr eeeeeeeeteese 
ECS otis ii ii iti tilt iit iti titititiiiiiiiiiiiitititititiii titi ti itt 
017432 012737 000024 001226 TST24: #24 ,a#TSTNO 
001216 #TST25,NEXT 
161736 WMRESET,@TXCSR ;RESET THE DEVICE 
PC, SMALL WAIT FOR RESET TO FINISH 
161724 #MMODE,@TXCSR ;ENTER MAINT MODE 
#RCVEN,@RXCSR TURN ON RECEIVER 
#DECMOD!26,aPARCSR ENTER DECMODE AND SYNC CHAR 
#SEND,@TXCSR ; TURN ON TRANSMITTER 
161676 #TSOM! 26,aTXDBUF PUSH OUT SYNCS 


36. 
161664 #252 ,aTXDBUF —_ DATA 
,20. PUSH OUT ANOTHER SYNC 
161644 oe ; CHECK 10 -, yes ARRIVED 


21 
16163€ 001324 1$: @RXDBUF ,DATA :GET THE REC CHAR 
000026 001324 #26,DATA ;CHECK FOR SYNC 

2$ :BR IF MATCH 

21 FAILED TO RECEIVE THIRD SYNC 
000020 161620 2$: #SEND,@TXCSR ;TURN OFF TRANSMITTER 
000016 P 14. PUSH OUT DATA 
161602 @RXCSR CHECK FOR REC DATA 

3$ BR IF YES 

H 26 FAILED TO GET A DATA DONE 
017606 017737 161574 001324 3$: @RXDBUF ,DATA :GET THE DATA 
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017614 LH of 000252 001324 CMPB #252,DATA COMPARE IT 
017622 4$ 7;BR IF A MATCH 
017624 zDATA ERROR 
017626 104400 : SCOPE THIS TEST 


peeeeeteeeeereeeeeeeereeeee TEST 25 xeeeeeeeeeteeeeeeeeeeeeeeee 

s*TEST TO PROVE THE DEVICE WILL 

s*WORK WITH EVERY POSSIBLE SYNC CHARACTER 

PRES eS CIPI Cite ties tise ti si iii tii ii ttt iii titi tiitititiiiii iis: 
sp eeeeeeeeeeee 


: * 
; TEST 25 


+ eethteketene 
Perri rite ii iti iit itiiitiiititiiitiiiitititi titi titi titi tii titi iii t 
017630 012737 000025 001226 : #25,a#TSTNO 
001216 #TST26,NEXT 
177776 
SET UP # OF SYNC 


001240 
CLEAR OUT DATA 
CLEAR SYNC 
000400 001236 #TSOM, TEMP ;LOAD TSOM 
052737 101000 001240 #DECMODE! CRCEN, TEMP2 LOAD DEC MODE 


052777 000400 161476 #MRESET,@TXCSR tots THE DEVICE 
005044 PC, SMALL WAIT FOR RESET TO FINISH 
000020 161456 #RCVEN,@RXCSR 
001240 161454 TEMP2,a@PARCSR ;LOAD THE MODE AND SYNC CHARACTER 
004020 161450 #SYSTST!SEND,@TXCSR ;TURN ON MODE AND TRANSMITTER 
161444 : @TXCSR 7 TEST FOR DONE 
2$ WAIT 
001236 161436 TEMP1 ,aTXDBUF ;LOAD TSOM AND SYNC CHAR ; 
R2 ;DECREMENT # OF SYNCS TO SEND 
001370 2s ;BR IF MORE TOO GO 


7$: 
032777 004000 161424 : + aaa iatimaaaes —_ a TIMER BIT 
004000 161414 : #TIMER,@TXDBUF ;CHECK THE aa BIT 
65$ :BR IF CLEAR 
161376 ecm 


RO 
000040 #40,R0 
7$ 


DONE FAILED TO SET AFTER THIRD SYNC 
161360 001244 : @RXDBUF , TEMPS GET THE BUFFER 
004000 001242 #RECACT, TEMPS TEST ACTIVE 
4$ :BR IF SET 
sACTIVE FAILED TO SET 
001244 : TEST FOR ERROR 
$ :BR IF NO ERROR 
26 ;HARDWARE ERROR 
020052 123737 001236 001244 : TEMP1, TEMPS COMPARE SYNCS 
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020110 


020144 
020146 


020316 


001401 
104022 


012702 
00 


104400 


012737 


340 
005001 
052777 


0 
052777 
012737 


000040 


000003 


001236 
001240 


000026 
020450 
000340 
006746 


340 


000400 


161170 


000426 
161154 


000426 


000100 


000040 
004000 


004000 


03-MAY-78 
724 


001226 
001216 
177776 


161236 
161222 
161216 
161202 
161202 
161176 


161162 


161146 


161124 
161124 


020316 
161112 


161102 


; TEST 26 


ROA RASLALAS SE 2 7 
WEAR RBAARAAAAAALAAAAAAL EARLE EARS EAESASALE EASELS SESE SESE SEES REESE ES SE SS 


B 6 


11:29 PAGE 67 SEQ 0066 
TEST OF ALL POSSIBLE SYNC CHARACTERS 


:BR IF OK 
SYNC CHAR DOES NOT MATCH SENT 


;SET UP FOR NEXT SYNC 
;D1TTO 
;DITTO 
R1,TEMP1 
R1,TEMP2 
1$ 3BR IF MORE TO GO 
:SCOPE THIS TEST 


peeeeeeeteeteteeeeeeeeeeeer TEST 26 eeeeeeeeeeneeeeeeeeeeeeeeee 
;*THIS TEST PROVES THAT THE CRC ERROR BIT FUNCTIONS 
> *CORRECTLY. FORCE AN ERROR AND VERIFY THE BIT. 


PT ERRARREREE RE REEAREEAERAAEEAE ERE AAA RARE AAR AERA ERAAEAKEEKEE 


RASA ALA SD S&S 3 


® 


* 


#26,a#TSTNO 
#TST27,NEXT 
#340,PS RAISE PROCESSOR STATUS 
R5,SETVEC ; SETUP VECTORS 
sRECEIVER 
; TRANSMITTER 


sLEVEL 
;CLEAR CHAR COUNT 


#MRESET ,A@TXCSR :RESET THE DEVICE 
PC, SMALL WAIT FOR RESET TO FINISH 
#DECMOD!26, aPARCSR ;LOAD THE MODE AND SYNC CHARACTER 
#SYSTST ,@TXCSR ;ENTER SYSTEM TEST MODE 
#RCVEN, ARXCSR ;LOAD RCVEN 
#SEND, aTXCSR ;TURN ON TRANSMITTER 
#TSOM!26,aTXDBUF :OUTPUT A SYNC CHAR 
@TXCSR ;CHECK DONE 
64$ :BR IF NOT SET 
#TSOM!26,@TXDBUF ;SEND SYNC 
@aTXCSR CHECK DONE 
65$ BR IF NOT SET 
#TSOM! 26, @TXOBUF :SEND SYNC 
PS LOWER PROCESSOR STSTUS 
#RINTEN,@RXCSR ‘TURN ON INTERRUPT ENABLES 
#TXINTE ,aTXCSR DITTO 


340,340 
R1 


#32.,70$ LOAD THE NUMBER 
1 asa criimaamess fe rit TIMER BIT 


#TIMER,@TXDBUF 
69$ 


;BR IF CLEAR 
(PC)+ ;DECREMENT THE NUMBER 
:OF TIMES TO REPEAT 
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020320 001365 68$ ;BR IF MORE TO GO 
104023 $ 23 FAILED TO FINISH TEST 
052777 000400 161060 WMRESET,@TXCSR ;RESET THE DEVICE 
004737 005044 PC, SMALL WAIT FOR RESET TO FINISH 
012706 001150 #STACK,SP RESET THE STACK 

020342 104400 


; INTERRUPT SERVICE ROUTINES 


; TRANSMITTER 
3$: R RO ;CLEAR DATA 
161042 RO, @TXDBUF ;LOAD DATA TO BUFFER 
020362 161020 * eatin Sy bs FOR NEXT INTERRUPT 
sl 
001000 161024 4$: #TEOM,aTXDBUF ;END OF MSG--OUTPUT CRC 
161014 #SEND!TXINTE ,aTXCSR :TRUN OFF THE 
160774 #NO.BTRAP ,aDUPTVC ; TRANSMITTER AND TXINTEN 
020266 5$: #1$, (SP) ;SETUP TO RETURN 
020410 000002 ; RETURN 


020344 005000 


020412 017737 160770 001324 6$ MOV @RXDBUF ,DATA GET THE DATA 
R1 ; CHECK FOR LAST CHAR 
000004 #4,R1 AND BRANCH IF 
10$ NOT YET 
010000 001324 — ; CHECK FOR CRC ERROR 


:BR IF CRC ERROR SEEN 


14 
020324 7$: #2$, (SP) FINISH TEST 
020446 000002 108: ; RETURN 


peeteeeereeeeeeeteeeeeeeeeee TEST 27 reeereeeeeeeeeeeeeeeeeteeee 
:*THIS TEST PROVES THE DEVICE WILL HANDLE THE 

;*DDCMP PROTOCALL. SEND AND RECEIVE SYNCS, 

7*FOLLOWED BY DATA,BCC,DATA AND FINAL BCC. 


POR PS RRRRRRRASASSARSASASASAALALSALLEL ASSESSES ES EASES ESLER SSS SS OD 


CRASS LS SS SD 3 


; TEST 27 


Sr ekkeeeeeteee 
ECCS ISSCC Streit itil irri ii tir i iii iii titiiitititititititi titi itt 
020450 012737 000027 001226 TST27: #27,a#TSTNO 
021454 001216 #TST30,NEXT 
000340 177776 #340,PS RAISE PROCESSOR STATUS 
006746 R5,SETVEC SET UP VECTORS 
;BASED ON 


; THESE 
340,340 ; PARAMETERS 
TEMP 1 

TEMP2 

TEMPS 
020520 005037 001244 TEMP4 
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020524 
020530 


020724 


020726 


021052 


005037 
052777 


005037 
012737 


104023 
052777 
004737 


012706 
104400 


012777 


000411 


—— 78 


001246 
000400 


160606 


000426 
160572 


000426 


177776 


000144 
004000 


004000 


000400 
005044 
001150 


000252 
000026 
020752 


001236 
001236 
000032 
021004 


001000 
021022 


001240 
001240 
000100 


021054 


160654 
160640 


160614 


160600 


160564 
160546 
160546 


020700 
160530 
160520 


160476 


160460 
001236 
160430 
160434 
001236 
160376 


160402 
160360 


160364 
001240 
160326 


11 


:29 PAGE 69 


DDCMP MODE CHECK 
TEMPS 


#MRESET,@TXCSR 
PC, SMALL 


#DECHOD 26, aPARCSR 


#SYSTST,aTXCSR 


#RCVEN! STPSYN, @RXCSR 


#SEND ,@TXCSR 


#TSOM! 26, aTXDBUF 


aTXCSR 
64$ 


:BR 
#TSOM!26,aTXDBUF 


@TXCSR 
65$ 


#TSOM! 26, aTxpBuF. 


#RINTEN,ARXCSR 
#TKINTE ,@TXCSR 


#100. ,708 
#TIMER,@TXDBUF 
68$ 
#TIMER,@TXDBUF 
69$ 

(PC)+ 


68$ 
23 


ges hE gas 


PC, SMALL 
#STACK,SP 


; INTERRUPT SERVICE ROUTINES 
; TRANSMITTER 
#252 ,aTXDBUF 
#26, TEMP! 
#3$,,aDUPTVC 
7$ 
Ha ,@TXDBUF 
#32, TEMP 
7$ 
#4$ ,aDUPTVC 
7$ 


#TEOM,@TXDBUF 
| acta 


TEMP2,@TXDBUF 
TEMP2 

#100, TEMP2 

7$ 

#6$ ,aDUPTVC 
7$ 


2$: 


3$: 


SEQ 0068 


ponte THE DEVICE 
WAIT FOR RESET TO FINISH 

;LOAD THE MODE AND SYNC CHARACTER 
:ENTER SYSTEM TEST MODE 
;LOAD RCVEN!STPSYN 
; TURN ON TRANSMITTER 
;OUTPUT A SYNC CHAR 

CHECK DONE 

IF NOT SET 

dts'6 SYNC 
K DONE 

RIF NOT Ho jy 

;SEND SYN 

: TURN ON INTERRUPTS 


sDITT 
;LOWER PROCESSOR STATUS 


;LOAD THE NUMBER 


sCHECK THE TIMER BIT 
; SET 


; E 
:DECREMENT THE NUMBER 


OF TIMES TO REPEAT 


:BR IF MORE TO GO 
:FAILED TO FINISH TEST 


RESET THE DEVICE 
WAIT FOR RESET TO FINISH 
RESET THE STACK 
;SCOPE THIS TEST 


;LOAD FIRST DATA CHAR 
;LOAD DATA 

;RELOAD VECTOR 

; LEAVE 

:MOV DATA TO BUFFER 


; UPDATE 


DATA 
CHECK FOR DONE 


7BR IF MORE TO SEND 
Bye VECTOR 


;RETU 

:PUT OUT BCC 
RELOAD VECTOR 

7 RETURN 

LOAD DATA 
UPDATE DATA 
CHECK FOR FINISH 
BR IF MORE TO GO 
;RELOAD VECTOR 


ETURN 
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021054 012777 001000 160332 6$: #TEOM,@TXDBUF ;PUSH OUT DATA BCC 
0 160322 #SEND!TXINTE ,@TXCSR ;SHUT DOWN TRANSMITTER 
160302 #NO.BTRAP ,aDUPTVC RESET VECTOR 
020650 7$: #100$, (SP) :SETUP RETURN 
021102 000002 ; RETURN 


sRECEIVER 


021104 017737 160274 001242 : @RXCSR, TEMPS SAVE CSR 
160270 001244 @RXDBUF,TEMP4 ;SAVE BUFFER 
001242 3 CHECK FOR DONE 
7BR IF SET 
a FALSE INTERRUPT 
001244 : CHECK FOR ERROR 
$ 3;BR IF NO ERROR 
26 RECEIVER ERROR 
000252 001244 : #252, TEMPS CHECK DATA 
13$ BR IF A MATCH 
22 zDATA COMPARE ERROR 
000026 001246 : #26, TEMPS LOAD NEXT EXPECTED 
021170 160206 #14$ ,aDUPRVC ; RELOAD VECTOR 
268 s LEAVE 
160212 001244 : @RXDBUF,TEMP4  :GET DATA 
001244 TEMP4 CHECK FOR ERROR 
15$ BR IF NO ERROR 


26 ;DATA ERROR 
001246 001244 : + ian 


é A H 
22 ;DATA COMPARE ERROR 
001246 : TEMPS ;UPDATE DATA 
000032 001246 #32, TEMPS ;CHECK FOR FIRST PART FINISH 
268% ;BR IF MORE TO GO 
021244 160132 #17$,aDUPRVC ;SET UP NEXT VECTOR 
268 ; LEAVE 
160136 001244 : @RXDBUF , TEMPS ;GET THE BUFFER 
001244 TEMP4 ; TEST FOR ERROR 
+4 :BR IF OK 
26 ;RECEIVER ERROR 
021272 160104 4 ani hy bey THE VECTOR 
3 V 
160110 001324 3 @RXDBUF ,DATA 3;GET DATA 
010000 001324 Feaenn wate OR IF Ay CRC ERROR 
K 


14 
021326 160054 : #20$ ,aDUPRVC SET UP VECTOR 
001330 MIND ;SETUP FOR NEXT DATA 


268 ; LEAVE 
160054 001244 : @RXDBUF,TEMP4  ;GET DATA 
001244 TEMP4 :CHECK FOR ERROR 
21$ :BR IF-NO ERROR 
26 ;RECEIVER ERROR 
001330 001244 : MIND, TEMP4 :CHECK DATA 
22$ ;BR IF A MATCH 
22 ;DATA ERROR 
001330 : MIND UPDATE SOFTWARE DATA 
021362 122737 000100 001330 #100,MIND CHECK FOR FINISH 
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021370 001030 268 ;BR IF MORE TO GO 
021402 157774 #23$,aDUPRVC ;RELOAD FINAL VECTOR 
26$ LEAVE 
160000 001244 : @RXDBUF,TEMP4 ;GET DAT 
001244 TEMPS 7 CHECK FOR ERROR 
248 ‘BR IF OK 
021416 104026 26 ;RECEIVER ERROR ON FIRST OCTET 
;O0F SECOND BCC 
021420 105777 157760 : @RXCSR TEST DONE 
24$ ;BR IF NOT SET 
157754 001324 @RXDBUF ,DATA ;GET SECOND BCC OCTET 
010000 001324 + pemamenats seas Ay BCC ERROR 


37BR I 
14 ;BCC ERROR ON SECOND PART OF MSG 
020706 : #1$, (SP) ;SETUP TO FINISH TEST 
021452 000002 : ;RETURN 


peetteeeteeeteeeeeeeeeeeeed TEST 30 cece eee ee eee eee eee eeeene 

;*THIS TEST IS AN AID FOR DEBUGGING CRC 

7*ERRORS. A CHARACTER IS LOADED INTO THE 

;*DUP AND PUSHED OUT BIT BY BIT WHILE 

;*ALLOWING THE OPERATOR TO MONITOR THE CRC 

>*CHARACTER AS IT IS GENERATED. THE DATA CHARACTER 

7*CAN ALSO BE CHANGED BY THE OPERATOR. 

;*PUT SWO9=1 TO LOCK ON BITS. TO CONTINUE HIT 

;*ANY KEY ON THE TTY. AFTER 16 TIMES PUT DOWN SWO9 TO LEAVE 

PERERA ARERR ERA EREREREEEEREAEREAERRRAEEE EER REAER ERE R ERE 
peeaponesances 


TEST 30 


sp eekeeeeetete 
PPPS IS ST iii irri rir rire r ir it iiiiitititi iii ti tititi titi titi iti tt 
021454 012737 000030 001226 TST30: #30,a#TSTNO 
001216 #. EOP NEXT 
157714 WMRESET,@TXCSR ;RESET THE DEVICE 
SMALL sWAIT FOR RESET TO FINISH 
007152 ;LOAD THE POLYNOMIAL 
021656 125,38 ;LOAD DATA TO SOFTWARE BCC-CHANGE CHARACTER HERE 


001252 
CLEAR FOR SOFTWARE BCC 
021660 CALBCC,4$ 
TEMPS 
TEMP4 ;CLEAR BIT COUNTER 


TEMPS 

#DECMOD!26,a@PARCSR ;LOAD MODE AND SYNC CHARACTER 

#MMODE ,@TXCSR ;ENTER MAINT MODE-PROGRAM CLOCKING 

#RCVEN!STPSYN,@RXCSR ; TURN ON RECEIVER 

#SEND ,@TXCSR TURN ON TRANSMITTER 

#T1SOM!26,aTXDBUF LOAD A SYNC 

36. ; PUSH +4 , SYNCS 
157572 3$,aTXDBUF LOAD DAT 

16. PUSH OUT * ANOTHER SYNC 

021626 104412 000002 : 2 ;PUSH OUT A BIT 


r! 
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021632 


021734 


021742 
021744 
021752 
021756 


021760 


022054 


013737 


022737 


001331 
052777 
004737 
104400 


032777 


000207 


oe “eps -78 
1:24 


001244 
001242 
001244 
007000 


021760 
021656 
007156 
000006 


157476 
000014 


001000 
000020 


000400 
005044 
001000 
007156 
000001 
001256 
001246 
023152 
023201 
001246 
157136 
157132 


001254 


021660 
001244 


001242 


157460 
001244 


157440 


157214 


001256 


11:29 PAGE 72 
CRC DEBUGGING AID TEST 


SEQ 0071 


TEMP4 ,SAVR2 ;SET UP TO TYPE 
TEMPS 


TEMP4 UPDATE BIT COUNTER 
R5,SIMBCC thr le SOFTWARE BCC BASED ON THESE PARAMETERS 


zDATA 
:PREVIOUS BCC 
PC,5$ ;CHECK TO SEE IF WE SHOULD WAIT FOR SCOPING 
CLEAR FOR NEXT ROTATE 
3$ SET UP THE NEXT BIT 
CALBCC,4$ FOR THE SOFTWARE BCC 
#6, TEMP4 
+6 
aTXDBUF 
#12., TEMPS 
12$ 


#TEOM, aTXDBUF 

#16. , TEMPS ALL DONE WITH THE CHARACTER? 
: INCREASE COMPARE # TO FORCE 
:CRC OUT OF THE GENERATOR 

1$ :BR IF MORE TO GO 

#MRESET,@TXCSR ;RESET THE DEVICE 

PC, SMALL sWAIT FOR RESET TO FINISH 
;SCOPE THIS TEST 


#SWO9,aSWR 
6$ 


CALBCC,R4 ; THE DATA CHARACTER IS ALWAYS 

#1, SAVR3 ;FOLLOWED BY A ZERO. THE DATA IN 
CRC SHOWS WHICH BIT OF THE 2 CHARS 
1S BEING GENERATED 


TYPE MSG 
TYPE HEADER 


@TKCSR ;CHECK TTY DONE--GO SCOPE THE CRC GENERATOR 
7$ ;BR IF NOT YET 

@TKDBR,R1 READ THE BUFFER 

PC TURN 





CZdP 


3633 
(1) 


a i i i Tt i i i i a tt ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee, ee ee a ee ee 
ee ke ee et at at ad ot 
Rt 


023201 


023274 


023306 


023310 
023312 
023314 


023316 
023320 
023322 


023324 
023326 
023330 


023332 
023334 
023336 


023340 


CZDPD-C MACY11 30A(1052) 
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042377 
042377 

377 
041377 
052377 


000000 


022120 
000000 
000000 


022145 
022225 
000000 


022166 
000000 
000000 


022202 
022225 
000000 


022244 


— 
1:24 


050125 


040504 


043040 
020101 


11:29 PAGE 73 


CRC DEBUGGING AID TEST 


«ERRTAB: 


Pd 

mn 

o 
ee ee ee ee a ee et ee ee 
NNN NNN NNN NNN NNN NNN NNN 


=z =z 
ie) — 


omm oom omm oom oomooo 
z= = z= 
awn => Ow 


m 
= 
™~ 


<377>/DUP FAILED 


TO INTERRUPT IN TIME / 


<377>/DATA COMPARE ERROR / 
<377>/END OF MESSAGE / 


<377>/BCC ERROR / 


<377>/TRANSMITTER DONE / 


/FAILED TO SET / 


<377>/RECEIVER INTERRUPT IN HALF=DUPLEX / 


<377>/FALSE INTERRUPT / 
<377>/ABORT SEQUFNCE ERROR / 
<377>/START OF MESSAGE / 


<377>/UNEXPECTED 


<377>/UNEXPECTED TRANSMITTER INTERRUPT / 


RECEIVER INTERRUPT / 


<377>/TRANSMITTER DONE / 
<377>/RECEIVER DONE / 
<377>/TRANSMITTER ACTIVE / 
<377>/RECEIVER ACTIVE / 


/FAILED TO SET. / 
/FAILED TO CLEAR. 


<377>/SYNC ERROR 
<377>/DATA ERROR / 


<377>/DEVICE FAILED my INTERRUPT IN TIME / 


/ 
/ 


<377>/FALSE INTERRUPT 


<377>/TRANSMITTER BCC ERROR IN DEC MODE / 


<377>/RECEIVER BCC ERROR IN DEC MODE / 
<377>/RECEIVER ERROR / 

<377>/BCC ERROR!! / 

<377>/CRC GENERATOR STATUS / 


<377>/DATA CHAR 


DATA BIT IN CRC GEN. 


;HALT 1 


sHALT2 


sHALT 3 


sHALT 4 


sHALT 5 


SEQ 0072 


CRC FOR THIS BIT / 
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023342 000000 
023344 000000 


023346 022310 
023350 000000 
023352 000000 


023354 022332 
023356 000000 
023360 000000 


023362 022361 
023364 022225 
023366 000000 


023370 022404 
023372 000000 
023374 000000 


023376 022444 
023400 000000 
023402 000000 


023404 023134 
023406 000000 0 ;HALT14 
023410 000000 


023412 022532 
023414 022621 sHALT15 
023416 000000 0 


023420 022507 
023422 022621 ;HALT16 
023424 000000 0 


023426 022552 
023430 022621 sHALT17 
023432 000000 0 


023434 022552 
023436 022641 ;HALT20 
023440 000000 0 


023442 022663 
023444 000000 0 ;HALT21 
023446 000000 


023450 022700 
023452 000000 0 ;HALT22 
023454 000000 


023456 022715 
023460 000000 0 sHALT23 
023462 000000 


oC 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(i) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
(1) 
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( 
( 
( 
( 
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ay ts ss ss Ss as Ss ss Ss ss ss ss ss 


C.P11 


aewewwvuwwvuvwwwewvywuywwwwwwwuwvuvuvwuywuuwuwuwwy 


023464 
023466 
023470 


023472 
023474 
023476 
023500 
023502 
023504 
023506 
023510 
023512 


023514 


023536 
023540 


O3-MAY-78 11:2 


022762 
000000 
000000 


022577 
022621 
000000 


023113 
000000 
000000 


023004 
000000 
000000 


023051 
000000 
000000 
000003 

006 
001252 

006 
001254 


006 
001256 


000001 


3-MAY-78 
4 
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CRC DEBUGGING AID TEST 


EM31 
0 
0 
EM23 
EM24 
0 
EM15 
0 
0 
EM32 
0 


CORMAX: 
END 


sHALT24 


sHALT25 


;HALT26 


sHALT 27 


sHALT 30 


6,17. 
6,15. 
6.2 


SEQ 0074 
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T1 
DUPACT 


003735 


007156 


010000 
004236 


001324 


004612 
004600 
100000 


003732 


023522 
001310 


O3-MAY-78 11:2 
1275* 


K 6 
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13204 
1714* 381717 1721 17334 
14004 


1475 


2710 2757 
3542 


1609* 1610 


2153* 2158 
3242 3250* 


2805 2867 


2283+ 


2805 


1613* 


2242* 2243 


3251 3385* 


2980 3102 


2512+ 


2275* 
3389 


3232 


SEQ 0075 


2279 
3515* 


3276 


2284 
3516 


3341 
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DUPCRO 001500 983 1047 
1048 


1036* 
1637* 
001374 1615* 2446* 2922* 2939% 3038*  3161* 


3513* 
001416 
1641* 


001400 2034 2136* 2139% 2145% 2262" 2265« 
001560 3376* 3458% 3464% 3467* 3473* 3477+ 


1076 1613 


023004 





Mm 6 
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023051 


1450* 1463 1477* 


1577# 


1011 1015 1021 1025 1653 


1449* 


15664 1652 1669 


2200 
3529+ 


NEW 541 1 15664 
PAR 005702 5 15664 
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PASSX 005355 15664 
POWER 005141 
QM 005132 
R 005202 
RESET= 000400 


005761 


001216 1752* 
2684 


006770 1825 
006774 1826 


001323 


001410 
003652 


177776 


010046 


RCVEN = 000020 


RECACT= 004000 
REOM = 001000 20 
RESREG 004614 14914 





8 7 
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RESTRT 003116 11634 
RESOS = 104407 1 
wy be pop h Ae: 1128* 1130 1163* 1200+ 1517* 1552 1668* 1678* 1679 


2080 2993 3115 3434 


1598+ 
001404 2079* 2080+ 2205* 


001406 


100000 


104400 
104401 
000020 
104413 
006746 
001326 


007000 
005044 


004237 13994 
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001150 
000010 
001334 
000400 


003744 
001202 


= 004000 
= 002000 
001322 
010000 
020000 


006054 
001236 


001240 


001242 
001244 


001246 
001000 


004000 
001204 


004330 


03-MAY-78 11:2 
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1117 1518 1548 


3425 3580 


953* 965 969 
1445 1494 1513 


1083 


1828 
2868 


1072+ 


1038* 


5 


CROSS REFERENCE TABLE -- USER SYMBOLS 


1939 2339 2405 


1083 1096 
1515 3612 


1081* 


2952 3008 


1101 


1702* 
22 


SEQ 0080 


3130 3368 3450 


1182 1189 1210 


1725* 


1964* 
2837* 


2161 
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006222 
000400 


001226 1 
2640* 2683* 2753 2801* 2857* 


007160 


007514 
007632 
010172 
010632 
003174 
000000 
001000 
001412 1754* 


001414 


28 2 
2984* 2991* 





. ¢ 
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3054* 3059* 3106* 3107 3109 3113+ 3201* 3206*  3234* 3236+ 
3 3345* 3348* 3351* 3357 3378* 3427* 3430* 3433+ 
3460* 3466*  3469* 3475+ 3600*  3603* 


100000 

000200 

000100 2223 2270 2395 2489 
3476 

004602 

104402 6 1144 1146 1148 1227 
1476 1480 1485 1550 


004502 


000032 52 18874 1961# 


003104 
000030 


177777 


000014 
023540 


002660 


003516 





ee 
CZDPD-C MACY11 30A(1052) — 78 11:29 PAGE 85 SEQ 0083 
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003412 12364 
1260 
12414 


1545# 1549 


003336 12204 


023540 000 


ERRORS DETECTED: 0 


DSKZ:CZDPDC ,DSKZ: CZDPDC.SEQ=DSKZ:DUP11.MAC ,DSKZ:CZDPDC.P11 
RUN-TIME: 10 15 1 SECONDS 

RUN-TIME RATIO: 54/27=1.9 

CORE USED: 25K (49 PAGES) 


DOCUMENT PAGES: 83 





